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ABSTRACT 



Geoffrion's structured modeling provides a very promising 
framework for the development of future model management 
systems (MMS) . This thesis presents a prototype that converts 
a mathematical representation of simple LP models to 
Geoffrion's structured modeling representations. The general 
procedures presented could be extended to convert an LP model 
represented in any precisely defined mathematical language. 
This would allow the development of integrated modeling 
environments based upon the structured modeling framework 
which would accept input in a number of common LP language 
formats . 
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I. 



INTRODUCTION 



The most widely accepted framework for building decision 
support systems (DSS) suggests three major components: the 
dialogue generation and management software which controls the 
DSS - user interface, the data base management software (DBMS) 
and the model management system software (MMS) . [Ref. l:p. 
21 ] 

Significant advances have been made in improving the 
dialogue management and DBMS components of DSS. Color 
graphics, windowing systems, pull down menus and simple input 
devices such as the mouse, provide the basic tools to build 
a user-friendly interface. The implementation of relational 
database theory has provided a number of powerful and flexible 
DBMS. 

The third component, the MMS, is the area where the 
greatest amount of work remains to be done. Management 
science and operations research (MS/OR) models have made 
significant contributions in specific applications. However, 
these models have been largely stand-alone, costly to build, 
and have dealt primarily with well structured problem 
domains . 

More recent modeling systems e.g., IFPS [Ref 2] have 
attempted to provide a more general tool for creating models 
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that assist the decision maker. The objective of these new 
systems is to increase the productivity of the model builder 
and to make the modeling process more acceptable to the non- 
technical user. Despite these improvements, no integrated 
modeling environment exists today that can meet the goals 
described by the Sprague and Carlson framework [Ref. 3:p 260]. 

This lack of progress is particularly troubling because 
the modeling component is the very heart of the DSS , As 
Sprague declares: 

...it is the integration of models into the information 
system that moves an MIS which is based on integrated 
reporting and data base/ data communication into a full 
decision support system. [Ref . l:p. 257] 

Managers have traditionally been reluctant to recognize 
the value of MS/OR models. The reasons for this reluctance 
has been discussed at length in the literature [Ref. 
3:p.259;Ref. 4:p. 466;Ref. 5:p. 36?Ref. 6:p. 704;Ref. 
7:p.548]. The most common reason given for managers' lack of 
acceptance is the poor model/user interface in existing 
models. Many modeling software systems present the manager 
with unnecessary detail, are too technical in nature and are 
difficult for the manager to understand. 

To overcome the managers' reluctance a MMS needs to 
combine the power of MS/OR algorithms for solving large, 
complex models with a flexible user interface that allows the 
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model and the results of the modeling process to be presented 
in a comprehensible manner to a manager. Geoffrion's 
structured modeling provides a formal framework for describing 
models which aims to provide the foundation for such a system 
[Ref. 7]. 

In this thesis we will construct a prototype parser which 
will convert mathematical representations of simple linear 
programming (LP) models to Geoffrion's structured modeling 
representations. We will attempt to demonstrate that the 
algorithms presented here can be extended to convert any LP 
modeling language to a structured modeling representation. 
This would allow development of integrated modeling 
environments based upon the foundation of structured modeling 
which could accept input in a number of common LP language 
formats. 

This work is organized as follows: Sections II and III 
provide an overview of model management and structured 
modeling. Section IV discusses the algorithms for automatic 
generation of structured modeling representations from the LP 
language. Section V will present the implementation of the 
prototype parser and Section VI will present the limitations 
of the prototype as well as possible extensions for future 
development. 
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II 



MODEL MANAGEMENT 



The rapid growth in the number of personal computers in 
recent years has fueled an interest in model-based decision 
making. The introduction of spreadsheet software has given 
the non-technical manager a user-friendly vehicle for creating 
models. These spreadsheets make it possible for the manager 
to create models for a wide variety of applications, (e.g., 
capital budgeting, human resource planning, resource 
allocation or portfolio selection) 

While this growth in the number of models can have a 
positive effect on an organization it also creates a number 
of managerial problems. When important decisions are based 
upon models it is imperative that the models are valid, 
correctly applied and based upon current data. Serious 
questions exist about the validity, integrity and security of 
the spreadsheet models used in decision making. These 
problems are very similar to the problems that led to the 
realization of the need for effective data management. [Ref 
5 : p. 38 ] 

The decentralized nature of spreadsheet modeling makes 
control very difficult. As the use of models continues to 
grow, it is important for managers to realize the potential 
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threat these problems pose for their organization. Managers 
must begin to recognize that models, like data, are an 
organizational resource that require management. 

Model management systems (MMS) have been proposed to deal 
with these problems associated with decentralized modeling. 
An MMS performs functions for models analogous to those that 
a DBMS performs for data. An MMS contains a validated, well- 
documented model base accessible by all authorized users. The 
MMS must provide support for: 

1. A consistent method for generating and updating 
models. [Ref l:p. 262] 

2. A flexible method for communicating modeling results in 
a manner suitable for technical and non-technical 
users. [Ref 7:p. 549] 

3. Integration of models with the existing data. 

4. Integration with advanced solver techniques. 

5. A control mechanism for ensuring the security and 
integrity of models in the model base. [Ref 6] 

The central MMS design issue is the method for 
representation and storage of the models in the model base. 
The model representation must be flexible enough to support 
the needs of all the users of the system. This requires a 
model representation that allows "views" of the model at 
different levels of complexity, including a analytical view 
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for the technical model builder and a natural language view 
for communication with the non-technical user of the MMS [Ref. 
7 : p . 549]. 

There have been a number of methods suggested for 
representing and storing the models in the model base. [Ref 1: 
p. 268] The traditional method is to represent models as 
subroutines in a high level language. In this approach the 
model base consists of a library of subroutines that is 
accessed by a subroutine call. 

This is the "black box" method of modeling that has made 
managers reluctant to use models for decision making. The 
interaction between the model and the user is very limited. 
The user supplies the data and the model produces "the 
result". There is no feature for explaining the models or the 
assumptions upon which they are based. 

A related approach represents models as statements in a 
modeling language such as GAMS. [Ref 8] In this approach the 
user defines the models in an algebraic language. The models 
are solved through the use of a common optimizer. This 

approach allows the user to focus on the modeling process 
rather than on developing the solver algorithm. Despite this 
improvement, the models-as-statements approach is limited in 
its ability to interact with the users. There is no feature 
for ad hoc gueries of the model base. The algebraic 
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representation of the model is an improvement over the model - 
as-subroutines approach but is still inadequate for 
communication purposes. 

The most promising approach represents models as data. [Ref 
9:p. 36] This approach uses existing DBMS technology to store 
and access models, simplifying the integration of models and 
data and allowing flexible queries of the model base to aid 
the user throughout the modeling process. 

Geoffrion's structured modeling offers a promising 
theoretical framework for implementation of a model management 
system. The structured modeling representation provides 
support for multiple views of models and graphical 
representations of models to enhance communication and improve 
acceptance of modeling by non-technical users. 

Our prototype will use the models-as-data approach to 
store Geoffrion's structured modeling representation. 
Structured modeling is described in the next section. 
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III. STRUCTURED MODELING 



Structured modeling, developed by Geof frion [Ref . 7], is a 
very general approach to modeling. Its goal is to foster 
development of a new generation of modeling systems with the 
following features [Ref. 7:p. 549]: 

1. A conceptual framework for modeling based upon a single 
model representation format suitable for managerial 
communication, mathematical use and direct computer 
execution. 

2. Independence of model representation and model solution 

3. Sufficient generality to encompass most of the modeling 
paradigms that MS/OR and kindred model-based fields have 
developed. 

4. Support for the entire modeling life cycle. 

5. Integrated facilities for data management and ad hoc 
queries . 

6. Desktop implementation with a modern user's 
interface, including immediate expression evaluation as 
in spreadsheet software. 

Our prototype will convert mathematical representations of 
LP models to Geoffrion's structured modeling representations. 
Here we provide the basics of structured modeling that are 
relevant to our prototype and discuss the features of 
structured modeling that make it attractive as a basis for MMS 
development. 

We will provide an example of how a LP model is 
represented in structured modeling. The example model we have 
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chosen is the same classic transportation problem used by 
Geoffrion [Ref. 7: p. 570]. This model describes plants which 
manufacture a product that must be shipped to customers. 
There are production constraints for each plant and demand 
constraints for each customer. The objective is to minimize 
the total cost of shipping the product within the constraints 
given. 

We will also use this example in Section V, which will 
allow the reader to compare the representation here to the 
one generated by our prototype. This informal approach 
provides only those elements of structured modeling necessary 
to understand the prototype implementation. For a more 
complete coverage of the subject see Geoffrion [Ref. 7]. 

A. PRINCIPLES OF STRUCTURED MODELING 

A structured model is composed of elements. These 
elements are either primitive or else defined in terms of 
their relationship to the other elements. There are six types 
of elements: 

1. Primitive entity elements (pe) have no value and usually 
represent things or concepts in the model (e.g., a plant 
in the transportation problem) . 

2. Compound entity elements (ce) have no value and usually 
represent concepts that are defined in terms of other 
things or concepts, (e.g., a plant-customer link in the 
transportation problem defined in terms of a certain 
plant and a certain customer) . 
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3. Attribute elements (a) have a constant value and 
represent a property of a thing or concept (e.g., the 
supply capacity of a particular plant in the 
transportation problem) . 

4. Variable attribute elements (va) are like attribute 
elements but their value is discretionary and likely to 
change, (e.g. , the flow of goods over a particular 
plant-customer link in the transportation problem) . 

5. Function elements (f) have a value that is derived by a 
specific equation or rule (e.g., the total cost 
associated with all flows in a transportation problem) . 

6. Test elements (t) are like function elements except that 
their value must be either true or false, (e.g., whether 
the demand requirement is met for a particular customer 
in the transportation problem) . 

The structured modeling framework consists of three 
levels: elemental structure, generic structure, and modular 

structure . 

The elemental structure is the most basic level of the 
model. It provides the details of a specific instance of the 
model. Geoffrion defines the elemental structure in terms of 
a directed acyclic attribute graph of elements (nodes) and 
calls 1 (directed arcs) . In all but the simplest of model 
instances the elemental graph will contain many arcs and 
nodes. In general this graph is too cluttered to be useful. 

The generic structure is a generalization of the elemental 
structure. This structure captures the natural familial 
groupings of elements. Similar elements are grouped such that 
every element in a genus calls the same genera and is called 



A "call" represents the participation of the called element 
in the definition of the calling element. The head node is the 
calling element and the tail node is the called element. 
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called by the same genera. This property is called generic 
similarity. [Ref. 7:p. 553] 

The generic structure can also be represented by a 
directed acyclic attribute graph called a genus graph. Figure 
1 is an example genus graph for the transportation problem. 

The genus graph is an example of the communication value 
of the structured modeling representations. The genus graph 
is dimension independent [Ref 7:p. 556] thus providing an 
insight into how the model works without the unnecessary 
details of the elemental structure. 

The modular structure groups elements into conceptual 
units called modules. For example, in the transportation 
problem, the customer genus and the demand genus could be 
grouped into a "customer data" module. These modules allow 
the model to be viewed at different levels of complexity. The 
modular structure can be represented graphically as a rooted 
tree. The root represents the entire model and each terminal 
node is a genus. Only certain modular structures are allowed. 
Valid structures can be represented by an indented list that 
contains no forward references. This indented list is called 
the modular outline. 

In addition to the graph based representations of models, 
Geoffrion has proposed a structured modeling language (SML) 
for representing schemas to reflect the generic and modular 
structure of models. [Ref. 10] Figure 2 is an example of the 
schema for the transportation problem. 
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&SDATA SOURCE DATA 



PLANTi /pe/ There is a list of PLANTS . 

SUP (PLANTi ) /a/ {PLANT} :R+ Every PLANT has a SUPPLY 
capacity measured in tons. 

& CD AT A CUSTOMER DATA 

CUSTj /pe/ There is a list of CUSTOMERS . 

DEM (CUST j ) /a/ {CUST} :R+ Every CUSTOMER has a 
nonnegative DEMAND measured in tons. 

&TDATA TRANSPORTATION DATA 

LINK (PLANTi, CUSTj) /ce/ Select { PLANT }X{ CUST) 
where i covers { PLANT },j covers {CUST} There are some 
transportation LINKS from PLANT to CUSTOMERS. There 
must be at least one LINK incident to each PLANT, and 
at least one LINK incident to each CUSTOMER. 

FLOW (LINKi j ) /va/ {LINK} :R+ There can be a non- 
negative transportation FLOW (in tons) over each link. 

COST ( LINKi j) /a/ {LINK} :R Every LINK has a 
TRANSPORTATION COST RATE for use in $/ton. 

$ (COSTij ,FLOWij ) /f/;SUMiSUMj (COSTi j *FLOWi j ) There is a 
TOTAL COST associated with all flows. 

T: SUP (FLOWi j , SUPi) /t/ {PLANT} ;SUMj (FLOWij ) <= SUPi Is 
the total FLOW leaving the PLANT less than or equal to 
its SUPPLY CAPACITY? This is called the SUPPLY TEST . 

T : DEM ( FLOWij , DEM j) /t/ {CUST} ; SUMi (FLOWi j ) = DEMj Is 
the total FLOW arriving at a CUSTOMER exactly equal to 
its DEMAND? This is called the DEMAND TEST. 



Figure 2: Schema for the Transportation Model [Ref. 7:p. 570] 
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This SML-based schema defines the entire model structure 
independent of the elemental detail and is precisely defined 
to allow direct computer execution [Ref. 7:p. 562], [Ref. 10]. 
We will only provide an overview of the schema syntax here. 

The schema is composed of two kinds of paragraphs: module 
paragraphs and genus paragraphs. The paragraphs are indented 
and organized in the same monotone order as the modular 
outline. Each paragraph consists of a formal part followed 
by an optional informal text interpretation part. 

A module paragraph consists of the mnemonic module name, 
preceded by an ampersand (&) and an optional interpretation. 
Geoffrion argues strongly that the interpretation is a 
critical part of the modeling process. 

The genus paragraph syntax will vary by element type. 
Figure 3 gives the general syntax for a genus paragraph. 
Optional items are enclosed in brackets. 



GNAME [new index] [ (generic calling sequence) ] 
/type/ [index set statement ][: range statement] 
[/generic rule statement] [interpretation]. 



Figure 3: General Syntax for a Genus Paragraph 



GNAME is the mnemonic genus name. The genus name is 
followed by an index for those genera that are self-indexed. 
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/type/ is the genus type declaration and must correspond to 
one of the six element types defined in structured modeling. 
The index set statement defines the permissible population of 
the genus. The range statement defines the permissible values 
for an attribute or variable attribute genus. The generic 
rule defines the rule by which the values of a function or 
test genus are derived. 

The structured modeling framework has much to offer as a 
foundation for future model management systems. In a single 
model representation it provides a computer executable model 
definition and a flexible communication device. 

Our prototype will focus on the genus graph and the text 
based schema representations of structured modeling. We will 
demonstrate how the structure of a LP model determines its 
structured modeling representation. The next section presents 
the theory upon which our conversion algorithm is based. 
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IV. GENERATION OF GRAPHS FROM LINEAR PROGRAMMING MODELS 



A linear program (LP) typically deals with the problem of 
allocating limited resources, subject to a set of constraints, 
in a way that maximizes return or minimizes cost. [Ref ll:p. 
156] 

This section will describe our method of converting 
mathematical representations of simple 2 LP models to 
structured model representations. This algorithm is based 
upon the relationship between LP model components and 
structured model genus types identified by Geoffrion and 
further amplified by Dolk. [Ref 12] 

Figure 4 is a the standard form of the LP model using our 
mathematical notation. The following conventions are used: 

1. Summations are identified by the token @SUM. The 

expression following the summation will be enclosed in 
parenthesis, (e.g., @SUMi(Xi) or @SUMiSUMj (Xij ) ) 

2. All variables and coefficients are in uppercase. 

3. All indices are in lower case. 

Appendix A contains a precise definition of our 
notation. This mathematical notation is a subset of the 
generic rule grammar defined by Geffrion. [Ref 10 :p. A4-1] 



2 • • 

Simple in this context means that there are no indices that 
depend upon other indices and that all indices range over their 
full set of values. 
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maximize: 


(0) 


Z = @SUMj ( Cj * Xj) 


subject to: 


(1) 


@SUMj (Aij * Xj) <= Bi 




(2) 


Xj >= 0 



Figure 4: Standard mathematical form of LP model 



This model consists of an objective function (equation 
(0)), a set of constraints (equations (1) and (2)), 
coefficients (C and A) , right hand sides (0 and B) , decision 
variables (X), and indices (i and j). 

Dolk has identified the following relationships between 
the components of an LP model and structured modeling genus 
types [Ref 12 :p. 3]: 

1. Each index is a primitive entity. 

2. The objective function is a function genus. 

3. Each constraint corresponds to a test genus. 

4. Coefficients are attributes associated with the 
primitive entity or compound entity that corresponds to 
its index. 

5. Right hand sides are attributes. 

6. Decision variables are variable attributes. 

7. For components with multiple indices (e.g., Aij ) the 
multiple indices correspond to a compound entity. 

The next requirement is to define the calling sequence 
which determines the genus graph structure. Dolk provides the 
following propositions [Ref 12:p. 3]: 
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1 . 



Every test genus is a leaf node 3 in the genus graph. 

2. The objective function of the mathematical model is a 
leaf node in the genus graph. 

3. Each index in the mathematical model is a root node. 4 

4. The function and test genera will have only attributes 
or variable attributes in their calling sequences. 

5. All variable attributes will appear in at least one test 
genus' calling sequence and the objective function 
genus. 

6. Any component with multiple indices will have several 
primitive entities in its calling sequence, one for each 
index. 

From these propositions we can identify each genus, its 
genus type, and its calling sequence. Further, each equation 
represents the generic rule for the corresponding test or 
function genus. 

With this information we can construct the genus graph 
from a mathematical representation of a model . Figure 5 is 
an example genus graph constructed for the standard form of 
the LP model. This graph, while accurate, is not particularly 
enlightening without meaningful mnemonic names to identify 
each genus node. Our parser, described in detail in the next 
section, will allow the user to add mnemonic names. 



3 A leaf node appears in no other genus' calling sequence. In 
the graph it will have no outgoing arcs. 

4 

A root node has no calling sequence. It will have no 
incoming arcs in the graph. 
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Figure 5: Genus Graph for the Standard Form of the LP model 
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We cannot determine the generic range of attribute genera, 
the index set statement, or the natural language 
interpretation from the mathematical model. However, we can 
construct an approximation of the text based schema. 

Our prototype will parse each equation and create a symbol 
table for the model. We then apply the relationships and 
propositions described here to construct the structured 
modeling representations from the symbol table. The next 
section will provide the implementation details of the 
prototype and provide an example conversion of the 
transportation model. 
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V. IMPLEMENTATION OF THE PROTOTYPE 



Our prototype, LP/SM, was designed to allow the user to 
enter a mathematical description of a simple LP model, convert 
it to a corresponding structured modeling representation, 
adding mnemonic names if desired, and then display this model 
graphically as a structured modeling genus graph or as an 
SML-based schema. An edit feature allows the user to enter 
the natural language interpretation, the generic range and the 
index set statement which cannot be automatically generated 
by LP/SM. Here we describe the LP/SM implementation and 
provide an example conversion of the transportation problem. 
A. HARDWARE USED IN THIS IMPLEMENTATION 

LP/SM was designed on an IBM PS/2 model 80 running the 
MS-DOS operating system. We found this to be an excellent 
environment for development. The 80386 CPU, provides rapid 
response and sufficient computing power for expansion of the 
prototype. The Video Graphics Array (VGA) graphics capability 
of the PS/2 ensures compatibility with all current PC graphics 
standards. The extended memory of the PS/2 makes it possible 
to implement applications that are memory intensive 5 (e.g., 
graphics) . 



5 0ur prototype requires at least 1.5 MB of memory to support 
the ORACLE RBDMS . 
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LP/SM was designed to ensure portability to the IBM PC AT 
environment. This required using Enhanced Graphics Array 
(EGA) graphics for display of the genus graph reducing the 
screen resolution to 640 pixels horizontally by 350 pixels 
vertically (640x350). While this resolution is limiting and 
makes some of the genus graph arcs appear jagged, it was 
sufficient for our prototype implementation. Our 

recommendations for future graphics enhancements are discussed 
in Section VI. 

B. SOFTWARE USED IN THIS IMPLEMENTATION 

The parser for our prototype was generated using 
automatic program generators. The program generators we chose 
were LEX: A Lexical Analyzer Generator [Ref. 13] and YACC: Yet 
Another Compiler Compiler [Ref. 14]. We chose this approach 
for a number of reasons: 

1. The resulting product is produced more quickly. 

2. The resulting product is flexible and adaptable. YACC 
will "read" any input that can be can be defined in its 
specification language. This specification language 
closely resembles BNF notation. 6 

LEX and YACC were designed to work together to build a 
parser for processing the input to a computer program. The 
user provides LEX and YACC with a high-level description of 

6 YACC will accept a very general class of grammars - LALR(l) 
with disambiguity rules. [Ref 15:p. 1] 
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the input language and these tools generate the source code 
for a parser which is capable of recognizing legal constructs 
of the defined language. LEX and YACC were written for the 
UNIX operating system, however their output is C source code 
which can be ported to the MS-DOS environment. 

The remainder of the prototype was written in Microsoft 
C. We found Microsoft C had a number of advantages for our 
prototype implementation: 

1. Complete MS-DOS function library and ANSI standard 
library functions to ensure compatibility with the code 
generated by LEX and YACC. 

2. Complete Graphics function library. 

3. Compatibility with the code generated by the ORACLE 
precompiler. 

4. Helpful programmer support tools including the make 
facility for managing maintenance of source code and a 
powerful source level debugger. 

Our prototype uses the ORACLE relational database 
management system (RDBMS) to store the structured models. 
ORACLE was chosen because it fully supports the ANSI standard 
SQL data manipulation language and contains a high-level 
programming language interface. 

SQL provides powerful data manipulation functions allowing 
for flexible queries of our model base and eventual 
integration of models with their corresponding data tables. 
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ORACLE'S C language interface extends the data 
manipulation functions of SQL by allowing the use of 
procedural programming language constructs (e.g., IF-THEN ELSE 
statements) . 

C. DESIGN OVERVIEW 

LP/SM consists of a number of separate modules that 
correspond to the functions displayed on the main menu. This 
modular approach will simplify future enhancements to the 
prototype. 

Listed below are the options that appear on the main menu 
when the program is run: 

1. Enter Model 

2 . Edit Model Schema 

3. Display Model Graph 

4. Display Model Schema 

5. Quit 

This menu was designed to function with a multiple-model 
model base, however since our prototype only allows a single 
model the user must initially select the "Enter Model" option. 
Any other selection will result in a pop-up window containing 
an error message. 

When the "Enter model" option is selected the prototype 
performs the following functions (See Figure 6) : 

1. Parses each equation of the mathematical representation 
of the model to ensure the syntax is correct. When a 
valid equation is recognized the equation tokens are 
entered into the parser's symbol table. 
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^ STRUCTURED MODELING 



REPRESENTATION 



) 



Figure 6: Overview of the LP/SM conversion process 
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2. Translates each element in the parser's symbol table 
entries to the corresponding structured modeling 
elements using the relationships and propositions 
described in Section IV. 

3. Accepts the user defined mnemonic names corresponding 
to each structured modeling element found in the 
translation of the symbol table. 

4. Substitutes user mnemonic names for each element, builds 
the mnemonic calling sequence for each of the 
non-primitive elements and constructs the mnemonic 
generic rule for each of the test and function elements. 

5. Builds a simple modular outline where each element is 
a module of the model with no sub-modules. The monotone 
order is determined by a simple topological sort of the 
generic structure calls. This topological sort is 
modified to place the attributes that call primitive 
entities immediately following the primitive entity in 
the modular outline. This is done to improve the 
appearance of the model schema. 

6. Writes the structured modeling description of the LP 
model to the ORACLE database. 

The following sections describe the implementation of each 
of the main menu functions. 

l. Parser implementation 

The first step in constructing a parser is to define 
the language to be parsed. To define any input language we 
must clearly specify the basic symbols allowed (tokens) in the 
language and the define rules for combining these symbols into 
legal constructs (non-terminal symbols) in the language. 
These tokens and the rules for combining them comprise the 
grammar for the input language. 

The final element of language definition is the 
semantics of the language. Semantic rules determine if a 
language construct that meets the syntax requirements is 
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meaningful. For example if the syntax requires that an index 
follow the §SUM token, the semantic rules would determine if 
the index used after the @SUM token is correct in the context 
of the entire equation. Semantic rules are much more 
difficult to define. Our prototype parser deals solely with 
the syntax of the language. This limitation is discussed 
further in Section VI. 

Use of the program generators requires defining the 
input language in two steps. The input to LEX defines the 
regular expressions that represent legal tokens of the 
language and actions to take when a token is found [Ref 13 :p. 
1] . The input to YACC defines the rules by which these tokens 
can be combined to form legal constructs of the language and 
the actions to take when a legal construct is recognized [Ref 
14 :p. 1], Appendix B contains our input to LEX and YACC. 

LEX produces a lexical scanner which reads from the 
input character stream and breaks it into legal tokens of the 
language. These tokens are passed to the parser created by 
YACC until a legal language construct is found or a syntax 
error occurs. 

When the "Enter Model" option is selected, the user 
will be prompted to enter the model name. The user will then 
be prompted to enter the objective function. Each equation 
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will be parsed as it is entered. If a syntax error occurs an 
error message will appear and the user must reenter the 
objective function. 

The cursor keys combined with the insert and delete 
keys provide a simple edit feature to assist the user in 
correcting the syntax error. 

When an equation is correctly entered the user will 
be prompted for the next equation. This process is repeated 
for all the equations in the model. To complete the model 
definition the user must enter the token END when prompted for 
the next equation. Figure 7 is a description of the 
transportation model in our mathematical language. This is 
the form that would be entered in LP/SM. 



@SUMi SUMj ( Cij * Xij) 

@SUMj (Xij) <= Si 
@SUMi (Xij) = Dj 
Xij >= 0 

Figure 7 : Mathematical Language Description 
of the Transportation Problem 

After the END token is entered, the user will be 
allowed to enter meaningful mnemonic names for the model 
elements. The user must identify which element is the 
decision variable. This allows us to identify which of the 
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attribute elements are variable attributes. Figure 8 is a 
chart showing the mnemonic names describing the transportation 
model. After the last mnemonic name is entered the model 
description is completed, written to the ORACLE tables and 
the main menu is redisplayed. 



GENUS NAME 


GENUS TYPE 


MNEMONIC NAME 


M TRANS 


model 


M TRANS 


EQNO 


f 


TOTAL 


EQN1 


t 


T : SUP 


EQN2 


t 


T : DEM 


EQN3 


t 


NON NEG 


ij 


ce 


LINK 


i 


pe 


PLANT 


j 


pe 


CUST 


c 


a 


COST 


X 


va 


FLOW 


s 


a 


SUP 


D 


a 


DEM 



Figure 8: Mnemonic Description of 
the Transportation Problem 



2. Storage of the Models in the Model Base 

The structured model is represented in two ORACLE 
tables: RELSHIP and ENTITY. This structure was developed by 

Dolk [Ref. 6:p. 710] to represent a structured model as part 
of an information resource dictionary system (IRDS) . This 
representation offers a number of advantages [Ref 6: p.718]: 

1. Model integrity consistent with structured modeling 
principles can be checked automatically with a single 
DBMS query command. 
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2. A wide variety of queries is available for both pre- 
and post-solution model analysis using DBMS query 
commands . 

3. Modeling and data resources are consolidate in a single, 
shared environment. 

4. The IRDS can be activated to interface with external 
processes such as optimization algorithms to support 
model manipulation and eventually serve as the 
foundation for a fully functional model management 
system. 

Figure 9 lists the SQL commands that create the tables 
and views representing a structured model in the model base. 
The CALLS view represents the model's generic structure. The 
CONTAINZ view represents the model's modular structure. An 
additional view is created for each of the element types to 
support queries concerning the model structure. 

In the ENTITY table ename is the mnemonic name of the 
model element, etype is the element type and must correspond 
to one of the six structured modeling element types (pe, ce, 
a, va, t, f) . dname is the descriptive name for the genus. 
The date_added, last_mod and nmods fields are used for control 
purposes to record the date the model element was added or 
modified and the number of modifications that have been made 
to the model element. The idx, idx_stmt, grange, and grule 
fields are used to store the elements index, index statement, 
generic range statement, and generic rule. The comments field 
corresponds to the structured modeling natural language 
interpretation . 
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create table 


entity 


(ename 


Char (20) NOT NULL, 


etype 


char (12) NOT NULL, 


dname 


char (30) , 


date added 


date, 


last mod 


date. 


nmods 


number (5) , 


idx 


char (4) , 


idx_stmt 


char(100) , 


grange 


char (20) , 


grule 


char ( 100) , 


comments 


char (100) ); 


create table 


relship 


(rtype 


char (10) NOT NULL, 


elname 


char (20) NOT NULL, 


eltype 


char (12) NOT NULL, 


e2name 


char (20) NOT NULL, 


e2type 


char (12) NOT NULL, 


rel_pos 


number ( 2 ) ) ; 


create view calls as 


select elname 


, eltype , e2name , e2type 


from relship 


where rtype = 


' CALLS ' ? 


create view containz as 


select elname 


, eltype, e2name, e2type, rel_pos 


from relship 


where rtype = 


' CONTAINS ' ; 



Figure 9: SQL commands for Model representation 
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In the RELSHIP table the rtype is "CALLS" for rows 
representing calls in the generic structure or "CONTAINS" for 
rows representing module containment. elname and eltype 
contain the name and type of the calling element in the 
generic structure or the module name in the modular structure. 
e2name and e2type contain the name and type of the called 
element in the generic structure or the name and type of the 
element that is contained within the module. rel_pos is an 
number representing the order of the element in the modular 
outline. 

Figure 10 shows the tables that are created for the 
transportation model. The prototype creates a simple modular 
outline. The module name is preceded by "M_" rather than the 
ampersand suggested by Geoffrion because the ampersand is a 
reserved symbol with special meaning in ORACLE. 

3. Display of the Model Schema 

When the "Display Model Schema" option is selected on 
the main menu, LP/SM reads the ENTITY table from the model 
base. This is accomplished by the use of the SQL command in 
Figure 11. This command ensures the schema is displayed in 
monotone order. 

Figure 12 is an example of the schema created for the 
transportation model. This is our initial approximation of 
the SML-based schema. It does not contain the generic 
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Structured Modeling Elements 


ENTITY (ename, 


etype, ..... idx 


, idx_stmt, grange , 






comments , grule ) 


(M TRANS , model 




(TOTAL , f 


II II II II II II 
/ • • • / / / 


, 11 " @SUMiSUMj (COSTi j *FLOWi j ) 


(T:SUP ,t 


II II II II II II 
/ • • • / t / 


, MI, f esUMj (FLOWij) <= SUPi) 


( T : DEM ,t 


It II It II II II 
/ • • • / / / 


, uu , @SUMi (FLOWij ) = DEM j ) 


(NON NEG, t 


II II II II II II 
/ • • • / / / 


/ ,,l, / FLOWij >= 0) 


(LINK , ce 


II 11 II 11 II 11 
/ • • • / / / 


f ii n ^ ii ii ) 


(PLANT , pe 


-i 11 11 11 It 

/ • • • / X / / 


ii ii it ii ^ 


(CUST , pe 


A II II ll 11 

/ • • • / J f / 


f ii ii f ii ii ) 


(COST , a 


II 11 11 ll ll ll 

/ • • • / / / 


ii ii ^ ii ii ) 


(FLOW , va 


ll 11 II II II tl 
/ • • • / r / 


it ii ti ii ^ 


(SUP , a 


ii ii ii ll ll ll 
/ • • • / / / 


ii n ^ ii ii ) 


( DEM , a 


ll Ii It ii ii ii 
/ • • • / / / 


ii ii ii ii ^ 




Generic Structure 


CALLS (elname, eltype,e2name, e2type) 


(COST 


, a , LINK , ce 


) 


(LINK 


,ce, PLANT i,pe 


) 


(LINK 


,ce, CUSTj , pe 


) 


(TOTAL 


, f , COST , a 


) 


(FLOW 


,va, LINK ,ce 


) 


(TOTAL 


,f , LINK , ce 


) 


(T : SUP 


, t , FLOW , va 


) 


(SUP 


,a ,PLANTi,pe 


) 


(T: SUP 


, t , SUP , a 


) 


( T : DEM 


, t , FLOW , va 


) 


(DEM 


, a , CUSTj , a 


) 


( T : DEM 


, t , DEM , a 


) 


(NON NEG 


, t , FLOW , va 


) 




Modular Structure 


CONTAINZ (elname , eltype , e2name , e2type , rel_pos) 


(M TRANS 


, model , COST 


t a , 8) 


(M TRANS 


, model , FLOW 


/ va, 9) 


(M TRANS 


, model , TOTAL 




(M TRANS 


, model ,NON_NEG 


,t ,14) 


(M TRANS 


, model , PLANT i 


,pe, 1) 


(M TRANS 


, model, SUP 


, a , 2 ) 


(M TRANS 


, model , CUSTj 


, P e , 3) 


(M TRANS 


, model , DEM 


,a , 4) 


(M TRANS 


, model , LINK 


, ce , 5 ) 


(M TRANS 


, model ,T: SUP 


,t ,12) 


(M TRANS 


,model,T:DEM 


,t ,13) 



Figure 10: ORACLE tables created to represent 
the transportation problem 
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Select 


ename , etype , dname , idx , idx_stmt , 




grange , grule , comments 


from 


ENTITY, CONTAINZ 


where 


ENTITY . ename = CONTAINZ . e2name 


order 


by rel_pos; 



Figure 11: SQL command to read ENTITY table 
from the model base 



range, index set statement, or natural language interpretation 
portions of the genus paragraphs. These portions can be added 
by using the edit feature on the main menu. 

4. Display of the Genus Graph 

The algorithm for creating the graph was adapted from 
the work done by Wyant [Ref. 16]. Figure 13 is the genus 
graph created by our prototype for the transportation problem. 

When the "Display Model Graph" option is selected on 
the main menu, LP/SM reads the CALLS view from the model base. 
Figure 14 is the SQL command that reads the CALLS view from 
the model base. Each CALLS row represents a directed arc in 
the genus graph. We order the rows in the CALLS view to group 
all the calls to a particular node. This provides a more 
orderly presentation of the arcs when we draw the graph on the 
screen. 

The genus graph is represented internally by creating 
a linked list containing the positions of each node 
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PLANTi /pe/ 

SUPPLY (PLANTi) /a/ 

CUSTj /pe/ 

DEMAND (CUSTj) /a/ 

LINK (CUSTj , PLANTi) /ce/ 

COST (LINK) /a/ 

FLOW (LINK) /va/ . 

TOTAL (COST, FLOW) /f/ ; @SUMiSUMj (COSTi j *FLOWi j ) . 
T : SUP (FLOW, SUPPLY) /t/ ; @SUMj (FLOWij ) <= SUPi . 
T: DEM (DEMAND, FLOW) /t/ ; @SUMi (FLOWij ) = DEMj 
NON_NEG (FLOW) /t/ ; FLOWij >= 0 . 



Figure 12 : SML-based schema created 

for the transportation problem 
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Select elname, eltype, e2name, e2type 
from CALLS 

order by e2name, elname 



Figure 14 : SQL command to read CALLS view 
from the model base 

in the graph. Each node in the linked list is a record 
containing the name and type of the node and the x and y 
screen coordinates of the center of the node. 

The relationships defined by the CALLS view are used 
to draw the directed arcs between the nodes. The graph is 
centered on the screen. The x and y coordinates are computed 
by determining the number of levels on the graph and the 
number of nodes on each level. 

Since the primitive entities represent root nodes in 
the genus structure, we add all the primitive entities to the 
position linked list on the first level of the graph. The 
next step is to search the CALLS view for all elements that 
call the primitive entities. These elements are added to the 
position linked list on level two. We then add the elements 
that call the elements on level two to the linked list on 
level three. This process continues until all genus graph 
nodes are represented in the position linked list. 
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It is possible that a genus will call genera that 
exist on two different levels of the graph. If this occurs 
we add a spaceholder position on the lower level to allow us 
to draw the directed arcs that span levels without drawing 
arcs that interfere with other nodes. For example in Figure 
13 the arc from DEMAND to T : DEM uses a spaceholder on level 
two. 

The most difficult issue in constructing the graph is 
how to place the nodes (elements) and directed arcs (calls) . 
We have attempted to address the problem in our prototype. 
Wyant's "spaceholder” reduces the possibility that an arc will 
be drawn through a node and our ordering of the elements in 
the CALLS view improves the presentation of the arcs in the 
lower levels of the graph. While our prototype will always 
produce a graph that correctly represents the generic 
structure of the model, the graph's aesthetic quality is often 
lacking. This limitation will be discussed in Section VI. 

5. Editing of the Model Schema 

The "Edit Model Schema" option on the main menu allows 
the user to enter the components of the model schema that were 
not automatically generated by our prototype. This 
information is added to the ENTITY table of the model base and 
will be displayed in the model schema. Figure 15 shows the 
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model schema for the transportation problem after the index 
set statements, generic ranges and natural language 
interpretations have been added. 

D. CONSTRUCTION OF THE PROTOTYPE 

The prototype is constructed in the following order: 

1. Run LEX using the input listed in Appendix B. 

2. Run YACC using the input listed in Appendix B. 

3. Precompile all source modules containing ORACLE SQL 
commands with the PCC ORACLE precompiler. 

4. Compile all source modules and link them into the 
executable file XMMS.EXE. 

Appendix C contains the makefile used to compile the 
prototype and the C source code for all functions except those 
that were generated by YACC and LEX. The YACC and LEX 
functions were omitted because they can easily be 
reconstructed by using the input described in Appendix B. 

E. RUNNING THE PROTOTYPE 

The prototype assumes that ORACLE is loaded into extended 

t> 

memory prior to running the prototype. ORACLE is loaded 
simply by typing ORACLE at the command prompt. 

Once ORACLE is loaded the prototype is run by typing XMMS 
at the command prompt. This will clear the previous model (if 
one exists) from the ORACLE database and display the main 

~r 

menu. 
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PLANTi /pe/ There is a list of PLANTS. 

SUPPLY (PLANTi) /a/ {PLANT} :R+ Every Plant has a 
SUPPLY capacity measured in tons. 

CUSTj /pe/ There is a list of CUSTOMERS. 

DEMAND (CUSTj) /a/ {CUST} :R+ Every customer has a 
nonnegative demand measured in tons. 

LINK (CUSTj , PLANTi) /ce/ Select { PLANT }X{ CUST} 
where i covers {PLANT} ,j covers {CUST} There are 
some transportation LINKS from PLANT to CUSTOMER. 

COST (LINK) /a/ {LINK} :R+ Every LINK has a 
transportation cost rate. 

FLOW (LINK) /va/ {LINK} :R+ There can be a non- 
negative transportation FLOW (in tons) over each 
LINK. 

TOTAL (COST, FLOW) /f/ ; @SUMiSUMj (COSTi j *FLOWi j ) 

There is a TOTAL COST associated with all the FLOWS. 

T : SUP (FLOW, SUPPLY) /t/ {PLANT} ; @SUMj (FLOWi j ) <= 

SUPi Is the total FLOW leaving a PLANT less than 
or equal to the SUPPLY CAPACITY. 

T : DEM (DEMAND, FLOW) /t/ {CUST} ; @SUMi (FLOWi j ) = 

DEMj Is the total FLOW arriving at the customer 
exactly equal to the its DEMAND. 

NON_NEG (FLOW) /t/ ; FLOWi j >= 0 This is the non- 
negativity constraint. The FLOW must be greater than 
or equal to zero. 



Figure 15: SML-based schema for the transportation 
problem after editing 
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F . SUMMARY 

We have presented the implementation details for LP/SM and 
described the conversion of the transportation problem. 
Because YACC will allow input from a very general class of 
grammars, we could extend these procedures to convert an LP 
model described in any mathematical language that can be 
represented in BNF. 

The prototype described here, while sufficient to 
demonstrate the conversion propositions described by Dolk 
[Ref. 12], is not robust enough to serve as part of an MMS. 
The next section will discuss the limitations of our 
prototype and possibilities for future enhancements. 
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VI. CONCLUSIONS 



Our prototype clearly demonstrates it is possible to 
construct a structured modeling representation of simple LP 
models with a minimum amount of input from the user, however, 
this version is limited and a number of enhancements are 
required. Here we discuss the limitations of the current 
version of the prototype and the enhancements that would be 
required to produce a working MMS for LP models. 

A. LIMITATIONS OF THE PROTOTYPE 

The primary limitation of our prototype parser is the 
parser's inability to "understand" the semantic rules of the 
mathematical language. The parser must be extended to include 
more than syntax checking. These semantic rules are necessary 
to ensure the validity of the model description in the model 
base. 

The graphics presentation of the genus graph in our 
prototype is somewhat limited. In part, this is because of 
the difficulty in providing a general algorithm that will 
arrange the nodes and arcs in a manner that is consistently 
aesthetically pleasing. We suggest development of a system 
that allows the user to manipulate the nodes and arcs of the 
graph after it is drawn to improve the presentation of the 
graph. This would require saving genus position information 
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in the model base but would improve the capability of the 
system to communicate the structure of the model. 

The quality of the graphics output could be improved 
through the use of the full VGA capabilities of the IBM PS/2. 
This would increase the screen resolution to 640x480, thus 
eliminating the jagged appearance of diagonal arcs. Bit-mapped 
scaleable characters would improve the quality of the textual 
information on the graph by allowing more precise placement. 
The presentation of the graph may be improved by assigning a 
distinct color and icon to each genus type as suggested by 
Wyant [Ref. 16]. 

The present display of the SML-based schema is limited to 
a single screen. A Scrollable text window would improve the 
presentation of the schema and allow for the display of larger 
models. 

Although this prototype was designed with a multiple model, 
model base in mind, the present version of the prototype 
supports only a single model, model base. This could easily 
be extended to support multiple models as described by Dolk 
[Ref. 6 : p . 714]. 

B. AREAS FOR FURTHER RESEARCH 

Representing structured models as data in a RDBMS is a 
promising approach for implementing the new generation of 
modeling systems described by Geoffrion. However, a number of 
research questions remain before a viable MMS can be 
constructed: 
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1. How can the model's description be integrated with the 
corresponding elemental detail ? 

2. How can the model and its associated elemental detail be 
integrated with LP solvers ? 

3. How can facilities be developed to allow ad hoc queries 
of the model base ? 

Much remains to be done, but the potential benefits are 
worthy of the effort. A structured modeling based integrated 
modeling environment would provide decision makers with a 
better understanding of the models upon which their decisions 
are based. This would improve the acceptance of model-based 
systems by managers and enhance the quality of organizational 
decision making. 
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APPENDIX A 



DESCRIPTION OF THE MATHEMATICAL LANGUAGE 

A. INTRODUCTION 

This grammar is a subset of the Structured Modeling Language 
(SML) grammar proposed by Geoffrion [Ref. 10]. This language uses 
the Module Test Expression grammar and the Function Test Expression 
grammar to implement simple linear programming models. The 
following are the major features of SML Generic Rule grammar not 
supported by this language subset: 

1. User defined functions 

2. Standard functions FLOOR, MAX or MIN 

3. Symbolic parameters 

4 . ORD function 

5. Logical functions: @AND, @OR, @NOT 

6. @IF function 

B. DESCRIPTION OF THE LANGUAGE SYNTAX 

The grammar for our language subset is presented in Extended 
BNF form. The following conventions are used: 

1. non-terminal symbols are enclosed in < > 

2. optional items are enclosed in [ ] 
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3 . items occurring zero or more times are enclosed in { } 

4 . alternative rules are separated by | 

5. terminal symbols are enclosed in " " 



C. ALPHABET OF THE LANGUAGE 



<divide_sign> 


• • = 


ii ^ ii 




<exp_sign> 


: : = 


ii ~ ii 




<minus_sign> 


: : = 


•i ii 




<plus_sign> 


: : = 


ii_j.ii 




<mult_sign> 


: : = 


n*n 




<at> 


: : = 


ii0ii 




<colon> 


: : = 


ii • n 




<digit> 


: : = 


"0" I 


"1" | | "9" 


<dollar> 


: : = 


II $11 




<eg> 


: : = 


II = II 




<gt> 


: : = 


II >11 




<ge> 


: : = 


II > = ll 




<lbracket> 


: : = 


II [■ II 




<literal> 


: : = 


"#TRUE" 


| "# FALSE" 


<lletter> 


: : = 


"a" | 


"b" | | "z" 


<uletter> 


: : = 


"A" | 


"B" | | "Z" 


<lparen> 


: : = 


It ( II 




<lt> 


: : = 


II < II 
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<le> 


• • = » <= n 


<ne> 


: := "<>" 


<period> 


. . — ii ii 

• t • 


<p_digit> 


::= "1" | ”2" | | "9" 


<rbracket> 


• • = ft J II 


<rparen> 


. • _ IT J If 


<rprime> 


. . — II I If 


<underscore> 


• • — If IV 


<zero> 


: : = " 0 " 


D. CHARACTERS 


USED IN IDENTIFIERS 



<identif ier_char> ::= <digit> 





<uletter> 

<underscore> 


E. ARITHMETIC 


CONSTANTS 


<sign> 


::= <plus_sign> 
<minus_sign> 


<p_integer> 


::= <p_digit> {digit} 


<nn_integer> 


: := <p_digit>{digit} | <zero> 


<nz_integer> 


: := <p_integer> | <signxp_integer> 


<nn_real> 


::= <digit>{digit}<period> 
<digit>{digit } 



F. NAMES OF MODEL ELEMENTS 



<end> 


: := "END" 


<gname> 


: := <uletter> { identif ier_char } 
| <dollar> { identif ier_char} 


<index> 


::= <lletter> 
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<fc name> 



• • 



"ABS" | "EXP" | "LN" | "LOG" | "SQRT" 



<i_fc_name> ::= "SUM" 

G. CONTEXT FREE GRAMMAR FOR THE LANGUAGE 



<sp_index> 


::= <index><rprime> 


<dp_index> 


: := <index><rprimexrprime> 


<pp_index> 


: := <index> 
<sp_index> 
<dp_index> 


<index_range4> 


: := <lbracketxpp_indexxplus_sign> 
<p_integerxcolon> 
<nz_integerxrbracket> 

| <lbracketxpp_indexxplus_s ign> 
<p_integerxcolonxpp_index> 
<plus_s ignxp_integerxrbracket> 


<index_range3> 


: := <lbracketxpp_indexxminus_sign> 
<p_integerxcolon> 
<nz_integerxrbracket> 

<lbracketxpp_indexxminus_sign> 

<p_integerxcolon> 

<pp_indexxrbracket> 

<lbracketxpp_indexxininus_sign> 

<p_integer><colonxpp_index> 

<signxp_integerxrbracket> 


<index_range2> 


: := <lbracketxpp_indexxcolon> 
<nz_integerxrbracket> 

<lbracketxpp_indexxcolon> 

<pp_indexxplus_signxp_integer> 

<rbracket> 


<index_rangel> 


: := <lbracketxnz_integerxcolon> 
<nz_integerxrbracket> 
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< index_range> 



<index_unit> 

< iterated_f un_unit> 

<index_sup_function> 
<of f set_index> 
<replaced_index> 

<gr_index> 

<gr_indicies> 



| <lbracketxnz_integerxcolon> 
<pp_indexxrbracket> 

| <lbracketxnz_integer> 
<colonxpp_index> 
<signxp_integerxrbracket> 

: : = EMPTY 

| <index_rangel> 

| <index_range2> 

| <index_range3> 

| <index_range4> 



::= <pp_indexxindex_range> 



::= <i_fc_namexindex_unit> 

| <iterated_fun_unitxi_fc_name> 
cindex unit> 



::= <at> <iterated_fun_unitxlparen> 
<expressionxrparen> 



: := <lbracketxpp_indexxsign> 
<p_integerxrbracket> 

: := <lbracketxp_integerxrbracket> 

<lbracketxsignxp_integer> 

<rbracket> 

: : = <pp_index> 

| <replaced_index> 

<of fset_index> 

: : = <gr_index> 

| <gr_indiciesxgr_index> 
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<simple_var> 



<gname> 





| <gnamexgr_indicies> 


<exprpack> 


= <lparenxexpressionxrparen> 


<built_in_function> 


: := <atxfc_name><exprpack> 


<variable> 


::= <sixnple_var> 

| <built_in_function> 

| <index_sup_function> 


<constant> 


::= <nn_integer> 
| <nn_real> 


<factor> 


: := <constant> 

| <variable> 

<lparenxexpressionxrparen> 


<power> 


: := <factor> 

<factorxexp_signxpower> 


<term> 


: := <power> 

| <termxmult_signxpower> 

| <termxdivide_signxpower> 


expression 


: := <term> 

| <minus_signxterm> 

| <expression><signxterm> 


<function_expression> 


: := <expression> 
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<relational_operator> 



<lt> 



<test_expression> 

1 

1 


<le> 

1 <eq> 

1 <gt> 

1 <ge> 

<ne> 

::= <literal> 

<expressionxrelational_operator> 

<expression> 

<expression><relational_operator> 

<expressionxrelational_operator> 

<expression> 


<mod_test_expression> 


::= <test_expression> 


< f _t_expr ess ion> 


::= <test_expression> 
<function_expression> 
<end> 



<xnod_function_expression> ::= <f_t_expression> 
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APPENDIX B 



INPUT TO LEX AND YACC 



A. INPUT TO LEX 



%{ 

/* 

These regular expression define all the symbols 
that are allowed in the mathematical language 

*/ 

/* include all the manifest constants 
created by YACC for tokens */ 

#include "ytab.h" 

/* include all symbol table data definitions */ 
#include "symbol. h" 



/* define return value */ 
#define token (x) x 



%} 

o o 
"o *6 



[ \n ] return 0 ; 

[ \t] 

"END" { 

install (yytext , END, eqno) ; 
return token (END) ; 

} 

"SUM" { 

install (yytext , SUM, eqno) ; 
return token (SUM) ; 

} 
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#TRUE" 


{ 

install (yytext, LITERAL, eqno) ; 
return token (LITERAL) ; 

} 


"# FALSE" 


{ 

install (yytext , LITERAL, eqno) ; 
return token (LITERAL) ; 

) 


"ABS" 


{ 

install (yytext , ABS , eqno) ; 
return token (ABS) ; 

) 


"EXP" 


{ 

install (yytext, EXP, eqno) ; 
return token (EXP); 

) 


"LOG" 


{ 

install (yytext, LOG, eqno) ; 
return token (LOG) ; 

} 


"SQRT" 


{ 

install (yytext , SQRT, eqno) ; 
return token (SQRT) ; 

} 


"LN" 


( 

install (yytext, LN, eqno) ; 
return token(LN); 

} 


[$A-Z] [ A-Z_] * 


{ 

install (yytext, IDENTIFIER, eqno) 
return token (IDENTIFIER) ; 

} 


[a-z ] * 


{ 

install (yytext, INDEX, eqno) ; 
return token (INDEX) ; 

} 


[1-9] £0-9] * 


{ 

install (yytext ,NZ INTEGER, eqno) 
return token (NZ INTEGER); 

) 
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[ 0 - 9 ] [ 0 - 9 ]* 



{ 

install (yytext , P_INTEGER, eqno) 
return token (P_INTEGER) ; 

} 



[ 0 - 9 ]*". "[ 0 - 9 ]* { 

install (yytext , REAL, eqno) ; 
return token (REAL) ; 

} 



" : " { 

install (yytext , COLON, eqno) ; 
return token (COLON) ; 

} 

{ 

install (yytext , AT, eqno) ; 
return token (AT) ; 

} 

II *M { 

install (yytext, TIMES , eqno) ; 
return token (TIMES) ; 

} 

"/" ( 

install (yytext, DIVIDE , eqno) ; 
return token (DIVIDE) ; 

} 

II _ II | 

install (yytext, MINUS, eqno) ; 
return token (MINUS) ; 

} 

"+» { 

install (yytext, PLUS, eqno) ; 
return token (PLUS) ; 

} 

ii * ii | 

install (yytext , POW, eqno) ; 
return token (POW) ; 

} 

, 1 ( 1 , { 

install (yytext, LPAREN, eqno) ; 
return token (LPAREN) ; 

} 
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")" { 

install (yytext, RPAREN, eqno) ; 
return token (RPAREN) ; 

} 

"t" { 

install (yytext , LBRACKET, eqno) 
return token (LBRACKET) ; 

} 

" 3 " { 

install (yytext , RBRACKET , eqno) 
return token (RBRACKET) ; 

} 

II I II | 

install (yytext , RPRIME, eqno) ; 
return token (RPRIME) ; 

} 

a — a j 

install (yytext , EQ, eqno) ; 
return token (EQ) ; 

} 

"<>" { 

install (yytext,NE, eqno) ; 
return token (NE) ; 

} 

"<" { 

install (yytext, LT, eqno) ; 
return token (LT) ; 

} 

">" { 

install (yytext , GT, eqno) ; 
return token (GT) ; 

) 

"<=" { 

install (yytext , LE, eqno) ; 
return token (LE) ; 

} 

">=» { 

install (yytext, GE, eqno) ; 
return token (GE); 

} 
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“6 'b 

/* Symbol table routines 

functions that maintain the global symbol table used 
by parser. The symbol table is defined as a singlely 
linked list 

*/ 



extern Symbol *head,*tail; 

/**********************/ 

Symbol * install (s, t, e) 

char * s; /* name of symbol */ 

int t; /* Yacc code for symbol type */ 

int e; /* equation symbol was found in */ 



{ 

Symbol * sp ; 



/* temp pointer to new symbol */ 



/* dynamically allocate space for next symbol table 
entry and the space for the symbol name */ 

sp = (Symbol *) malloc (sizeof (Symbol) ) ; 

sp->s_name = malloc (strlen (s) +1) ; 



/* assign values to the symbol table entry */ 

strcpy (sp->s_name, s) ; 
sp->s_type = t; 
sp->equation = e; 
sp->next = NULL; 



/* add new symbol to end of linked list */ 



if ( head == NULL ) { /* first symbol on list */ 

head = tail = sp; 
return ; 

) 

else { /* add to end of list */ 

tail->next = sp; 
tail = sp; 
return ; 

} 

) 
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B 



INPUT TO YACC 



/* Mathematical Language syntax analysis */ 



/* Terminal Symbols */ 



%token 


ABS 


%token 


AT 


%token 


COLON 


%token 


DIVIDE 


%token 


EQ 


%token 


EXP 


%token 


END 


%token 


GT 


%token 


GE 


%token 


IDENTIFIER 


%token 


INDEX 


%token 


LBRACKET 


%token 


LITERAL 


%token 


LT 


%token 


LE 


%token 


LPAREN 


%token 


LN 


%token 


LOG 


%token 


MINUS 


%token 


NE 


%token 


NZ INTEGER 


%token 


POW 


%token 


P INTEGER 


% token 


PLUS 


%token 


REAL 


%token 


RPAREN 


%token 


RBRACKET 


%token 


RPRIME 


%token 


SUM 


%token 


SQRT 


%token 


TIMES 



/* define the precedence of the operators */ 

%left PLUS MINUS 
%left TIMES DIVIDE 
%left UNARYMINUS 
%right POW 
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equation 



test_expression 



expression 



test_expression 

function_expression 

END 

LITERAL 

expression rel_op expression 
expression rel_op expression rel_op 



rel_op : LE 

GT 

GE 

EQ 

NE 

LT 



function_expression 

expression 

term 

power 

factor 

constant 

variable 

built in function 



expression 

term 

expression PLUS term 

expression MINUS term 

MINUS term %prec UNARYMINUS 

power 

term TIMES power 
term DIVIDE power 

factor 

factor POW power 

constant 

variable 

exprpack 

integer 

REAL 

simple_variable 
built_in_f unction 
index_sup_f unct ion 

AT builtin exprpack 



builtin 



ABS 

EXP 
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SQRT 

LOG 

LN 



exprpack 

sixnple_variable 

gr_indici.es 

gr_index 

pp_index 

replaced_index : 

offset_index : 

I 

index_sup_function 

iterated_fun_unit 

index_unit 

index_range 

index_rangel : 

I 

I 

index_range2 : 



: LPAREN expression RPAREN 

: IDENTIFIER 

| IDENTIFIER gr_indicies 

: gr_index 

gr_indicies gr_index 

: pp_index 

replaced_index 
of fset_index 

: INDEX 

INDEX RPRIME 
INDEX RPRIME RPRIME 

LBRACKET P_INTEGER RBRACKET 

LBRACKET PLUS P_INTEGER RBRACKET 

LBRACKET MINUS P_INTEGER RBRACKET 

LBRACKET pp_index PLUS P_INTEGER 
RBRACKET 

LBRACKET pp_index MINUS P_INTEGER 
RBRACKET 

: AT iterated_fun_unit exprpack 

: SUM index_unit 

iterated_fun_unit SUM index_unit 

; pp_index index_range 

/* no range */ 
index_rangel 
index_range2 
index_range3 
index_range4 

LBRACKET NZ_INTEGER COLON NZ_INTEGER 
RBRACKET 

LBRACKET NZ_INTEGER COLON pp_index 
RBRACKET 

LBRACKET NZ_INTEGER COLON pp_index sign 
integer RBRACKET 

LBRACKET pp_index COLON NZ_INTEGER 

RBRACKET 
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index_range3 



index_range4 



integer 



sign 






| LBRACKET pp_index COLON pp_index PLUS 
integer RBRACKET 

: LBRACKET pp_index MINUS P_INTEGER COLON 
NZ_INTEGER RBRACKET 

| LBRACKET pp_index MINUS P_INTEGER COLON 
pp_index RBRACKET 

| LBRACKET pp_index MINUS P_INTEGER COLON 
pp_index sign integer RBRACKET 

: LBRACKET pp_index PLUS integer COLON 
NZ_INTEGER RBRACKET 

| LBRACKET pp_index PLUS integer COLON 
pp_index PLUS integer RBRACKET 

: P_INTEGER 

| NZ_INTEGER 

: PLUS 

| MINUS 
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APPENDIX C 



MAKEFILE AND SOURCE LISTING 



############################################## 

# 

# Makefile for XMMS prototype 

# 

# A prototype parser that converts a LP 

# mathematical language into structured modeling 

# formats. The models are stored in a ORACLE 

# database. Models can be displayed as textual schema 

# or as generic graph. 



# Writen By: David S. Hill 

# Uses large memory model because of 

# ORACLE PRO*C interface 

MODEL=L 

# Object Files 

OBJS =parser.obj menu.obj models. obj enter. obj oracle_r.obj 
oracle_w.obj pr intern. obj A 

# Complier Flags 
CFLAGS =/A$ (MODEL) /c 
CL =cl $ (CFLAGS) 

# General Rule - 

# make .obj from .c files 

. C. OBJ : 

$ ( CL) $ * . c 

# Compile all the files 

# Parser program created by input to YACC and LEX 

parser. obj: parser. c ytab.h 

# Menu function and main program 
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menu . ob j : menu . c 

# functions display models 

models. obj: models. c 

# function to enter model 

enter. obj: enter. c 

# function to read and write from ORACLE 

oracle_r.c: oracle_r.pc 

pcc iname=oracle_r .pc host=c 

oracle_r . obj : oracle_r.c 

oracle_w.c: oracle_w.pc 

pcc iname=oracle_w.pc host=c 

oracle_w . obj : oracle_w . c 

/* link the executable fie */ 

xmms.exe: $(OBJS) 

LINK $ (OBJS) , xmms . exe, , sqlmsc /se:512 /stack:10000 /map 
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/****************************************************** 
DATE: 10 Jan 89 - dsh 



FILE: 



defs.h 



CONTENTS: Constant definitions for Keys, Colors and other 

common constants 

******************************************************/ 

/* Constants */ 



#def ine DEFAULT 


-1 


#def ine TRUE 


1 


#def ine FALSE 


0 


/* Key Scan codes 


*/ 


#def ine UP 


72 


#def ine DOWN 


80 


#def ine LEFT 


75 


#def ine RIGHT 


77 


#def ine ENTER 


28 


/* text color definations 


#def ine BLACK 


0 


#def ine BLUE 


1 


#define CYAN 


3 


#define RED 


4 


#def ine WHITE 


7 


#def ine LBLUE 


9 


#define LRED 


12 


#def ine BRWHITE 


15 


/* video interrupt defs */ 


#def ine CURSIZE 


1 


number */ 

#def ine VIDEO 


0x10 


#def ine OFFBIT 


0x20 



/* set cursor size service 

/* interrupt number */ 

/* this bit turns cursor off 
sets bit 5 of register ch on 



V 
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/*********************************************************** 
DATE: 5 Dec 88 - dsh 

FILE: ytab.h 

CONTENTS: Constant definitions passed from scanner 

to parser. Used in manipulating symbol table 

**********************************************************/ 

# define ABS 257 

# define AT 258 

# define COLON 259 

# define DIVIDE 260 

# define EQ 261 

# define EXP 262 

# define END 263 

# define GT 264 

# define GE 265 

# define IDENTIFIER 266 

# define INDEX 267 

# define LBRACKET 268 

# define LITERAL 269 

# define LT 270 

# define LE 271 

# define LPAREN 272 

# define LN 273 

# define LOG 274 

# define MINUS 275 

# define NE 276 

# define NZ_INTEGER 277 

# define POW 278 

# define P_INTEGER 279 

# define PLUS 280 

# define REAL 281 

# define RPAREN 282 

# define RBRACKET 283 

# define RPRIME 284 

# define SUM 285 

# define SQRT 286 

# define TIMES 287 

# define UNARYMINUS 288 
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/*********************************************************** 
DATE: 10 Jan 89 - dsh 



FILE: 



symbol .h 



CONTENTS: Type definitions and declarations for all 

global linked list elements 

********************************************************/ 



typedef struct symbol_table_entry 
struct symbol_table_entry { 



Symbol ; 



char s_name[20] ; /* name of symbol */ 

int s_type; /* YACC code for symbol type */ 

int equation; /* equation # symbol was in */ 

struct symbol_table_entry * next; 

/* pointer to next symbol in list */ 



} ; 



typedef struct entity_table_entry 



Entity; 



struct entity_table_entry { 



char ename[20] ; 
char etype [ 8 ] ; 
char dname[30]; 
char idx[4]; 
char idx_stmt[50] ; 
char grange [20] ; 
char grule[80]; 
char comments [ 80 ] ; 



/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 



name of entity */ 
type of entity */ 
descriptive name of entity */ 
index set */ 
index statement */ 
generic range stmt */ 
generic rule */ 
informal interpertation */ 



struct entity table entry 


*next ; 


/* pointer to next 


} ; 




table entry */ 


typedef 


struct relship_table_ 


_entry 


Relship; 


struct 


relship_table_entry { 






char 


rtype[12] ; 


/* 


type of relationship 








CALLS */ 


char 


elname [ 20 ] ; 


/* 


calling entity name */ 


char 


eltype [ 8 ] ; 


/* 


calling entity type */ 


char 


e2name [20] ; 


/* 


called entity name */ 


char 


e2type[8] ; 


/* 


called entity type */ 


struct 


relship_table_entry *next; 


/* pointer to next 



table entry */ 



} i 
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typedef struct module_table_entry 



Module ; 



struct module_table_entry { 
char rtype[12]; 

char elname[20]; 

char eltype[8]; 

char e2name[20]; 

char e2type[8]; 

int rel_pos ; 

struct module_table_entry 



/* type of relationship 
CONTAINS */ 

/* calling entity name */ 

/* calling entity type */ 

/* called entity name */ 

/* called entity type */ 

/* Position in heirarchy */ 
:t; /* pointer to next 

table entry */ 



>; 



typedef struct entity_position Position; 



struct entity _position { 



char ename[20]; 
char etype [ 8 ] ; 

short xpos, 
ypos , 
level ; 



struct entity_position 
} ? 



/* name of entity */ 

/* type of entity */ 

/* x pixel coordinate */ 

/* y pixel coordinate */ 

/* genus graph level - all 
pe ' s start 

on level 1 and those 
elements that call 
them are on the next level */ 
* next; /* pointer to next item 
in linked list */ 
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/*********************************************************** 



DATE: 22 Jan 89 - dsh 

FILE: menu.c 

CONTENTS: Main function and the functions to control 

the menu selection. The menu selection 
functions were adapted from the basic graphics 
samples provided with the Microsoft C compiler. 
*********************************************************/ 



# include <stdio.h> 
#include <dos.h> 

#include "defs.h" 

# include " symbol. h" 
# include <graph.h> 

# include <string.h> 
#include <bios.h> 



/* standard io library defs */ 

/* defines registers 
for interrupts */ 

/* constant definations */ 

/* type definitions */ 

/* graphics defs */ 

/* string function defs */ 

/* defs for BIOS calls to keyboard */ 



/* Functions - prototypes */ 

int menu(int, int, char* []); 

void box (int, int, int, int); 

void itemize(int, int, char*, int); 

short initialize (short) ; 

int yylex(int) ; 

void yyerror (void) ; 

extern void enter_model (void) ; 

int yyparse (int) ; 

void cursor_on (void) ; 

void cursor_of f (void) ; 

void display_message (char *) ; 



/* Structure for configuration */ 

struct videoconfig vc; 

/* Array and enum for main menu */ 

char *mnuMain[] = { 

"Enter Model", 

"Edit Model Schema" , 

"Display Model Graph", 

"Display Model Schema", 

"Quit" , 

NULL ) ; 
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enum { 

NEW, EDIT, GRAPH, SCHEMA, QUIT }; 



/* Structure for menu attributes 

(variables for color and monochrome) */ 

struct mnuAtr { 

int fgNormal, fgSelect, fgBorder; 
long bgNormal, bgSelect, bgBorder; 
int centered; 

char nw[2], ne[2], se[2], sw[2], ns [2], ew[2]; 

) 

menus = { 

BLACK, BRWHITE, RED, 

CYAN, RED, CYAN, 

TRUE, 

"\xda" , "\xbf " , "\xd9" , ''\xcO", "\xb3", "\xc4" 

In- 
struct mnuAtr bwmenus = { 

0x70, Oxf, 0x70, 

0x7, 0x70, 0x7, 

TRUE, 

"\xda" , "\xbf", "\xd9", "\xc0", "\xb3", "\xc4" 

) ; 

char messl [ ] = { 

"Prototype Model Management System for Linear 
Programming" } 

/ 



char mess2 [ ] = { 

"Move to menu selection with cursor keys, press ENTER to 
select" } ; 

char mess3 [ ] = { 

"A Model already exists do you want to delete it ? 
(Y/N)"}; 

int lmessl = sizeof (messl) , 
lmess2 = sizeof (mess2 ) ; 
lmess3 = sizeof (mess3 ) ; 
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/*********************************************************** 



MAIN 

Main function for XMMS. Makes calls to set up menus, 
and calls for each of the functions in the menu list. 



**********************************************************/ 



main () 
{ 



int 


choice. 


/* 


crow, 




/* 


ccol ? 




/* 


int 


tmode , 


/* 




vmode ; 


/* 


long 


bkcolor ; 


/* 



short xpixels, 

ypixels, 



maxcols, 
maxrows , 
mflag = 



menu choice */ 

current text position row */ 
current text position col */ 

video text mode */ 

video mode for graphics */ 

initial background color */ 



/* max pixels in 
x in graphics mode */ 

/* max pixels in y 
in graphics mode */ 

/* max text columns in text mode 
/* max text rows in text mode */ 
0;/* global flag set when 
model is present */ 



*/ 



char 



yorn[4]; /* buffer for y or n answer */ 



_getvideoconfig(&vc) ; 

xpixels = vc . numxpixels ; 
ypixels= vc. numypixels ; 
maxcols= vc.numtextcols; 
maxrows= vc . numtextrows ; 



crow = maxrows / 2 ; 
ccol = maxcols / 2; 
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/* Select best text and graphics 

inodes and adjust menus */ 



switch (vc. adapter) { 
case _MDPA : 
case _CGA : 

puts ("EGA or VGA Graphics required. \n" ) ; 
exit (0) ; 
case _EGA : 
case _VGA : 
case _MCGA : 

vmode = _ERESCOLOR ; 

break; 

) 

switch ( vc. mode) { 
case _TEXTBW80 : 

menus = bwmenus; 

case _TEXTBW4 0 : 

_setvideomode (_TEXTBW80) ; 
break; 

case _TEXTC40 : 

tmode = _TEXTC80 ; 

break; 

case _TEXTMONO : 
case _ERESNOCOLOR : 

menus = bwmenus; 

tmode = _TEXTMONO ; 

vmode = _ERESNOCOLOR; 

break; 
default : 

tmode = _TEXTC80 ; 

) 



_setvideomode (tmode) ; 

/* delete old models if any exist in ORACLE */ 

delete_from_entity ( ) ; 
delete_from_relship ( ) ; 



_settextposition(2 , 40 - 
_outtext (messl) ; 


(lmessl 


/ 


2)); 


_settextposition (22 , 40 - 
_outtext (mess2 ) ; 


(lmess2 


/ 


• 

<N 
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/* Select and branch to menu choices */ 
for ( ; ; ) { 

choice = menu ( crow , ccol , mnuMain ) ; 



switch (choice) { 
case NEW : 

if(mflag) { 

_clearscreen (_GCLEARSCREEN) ; 
display_message ( "Single model prototype 
model exists ") ; 

break; 



} 

_clearscreen (_GCLEARSCREEN) ; 
enter_model ( ) ; 

mflag =1; 
break; 
case EDIT : 

if (mflag) { 

_clearscreen (_GCLEARSCREEN) ; 
edit_schema ( ) ; 

} 

else { 

_clearscreen (_GCLEARSCREEN) ; 
display_message ( "Single model prototype 
enter model first ") ; 

} 

break; 

case GRAPH : 

if (mflag) { 

initialize (vmode) ; 
display_graph( ) ; 
_bios_keybrd(_KEYBRD_READ) ; 

} 

else { 

_clearscreen (_GCLEARSCREEN) ; 
display_message ("Single model prototype 
enter model first ") ; 

} 

break; 

case SCHEMA : 

if (mflag) { 

_clearscreen (_GCLEARSCREEN) ; 
display_schema ( ) ; 
_bios_keybrd(_KEYBRD_READ) ; 

} 

else { 

_clearscreen (_GCLEARSCREEN) ; 
display_message ( "Single model prototype 
enter model first ") ; 

} 
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break; 
case QUIT : 

_setvideomode (_DE FAULTMODE) ; 
exit(O) ; 



) 

_setvideomode (tmode) ; 

} 

} 



/**************************************************** 

MENU 

Function to put menu on screen. 

Returns number of item selected. 

Adapted from Microsoft C graphics samples. 

****************************************************** / 

int menu (row, col, items) 

int row, /* starting row and col */ 

col ; 

char *items[]; /* array of menu items */ 

{ 

int i , 

num, 
max= 2 , 
prev, 
curr= 0 , 
choice; 

int litem[25]; 

long bcolor; 

cursor_of f ( ) ; 

bcolor = _getbkcolor ( ) ; 

/* Count items, find longest, 

and put length of each in array */ 

for (num = 0; items[num]; num++) { 

litem[num] = strlen (items [num] ) ; 

max = (litem [num] > max) ? litem [num] : max; 

} 

max += 2 ; 

if (menus . centered) { 
row -= num / 2 ; 
col -= max / 2 ; 

} 

/* Draw menu box */ 
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_settextcolor (menus . fgBorder) ; 

_setbkcolor (menus . bgBorder) ; 
box(row++, col++, num,max) ; 

/* Put items in menu */ 

for (i = 0; i < num; ++i) { 

if (i == curr) { 

_settextcolor (menus . fgSelect) ; 
_setbkcol or (menus . bgSelect) ; 

} 

else { 

_settextcolor (menus. fgNormal) ; 
_setbkcol or (menus. bgNormal) ; 

} 

itemize (row+i , col , items [i] , max - litem[i]); 



/* Get selection */ 
for ( ; ; ) { 

switch ( (_bios_keybrd(_KEYBRD_READ) & OxffOO) >> 8) 

{ 

case UP : 

prev = curr; 

curr = (curr >0) ? ( — curr % num) : num-1; 
break ; 
case DOWN : 

prev = curr; 

curr = (curr < num) ? (++curr % num) : 0; 
break; 

case ENTER : 

_setbkcolor (bcolor) ; 
return (curr) ; 
default : 

continue ; 

} 

_settextcolor (menus . fgSelect) ; 

_setbkcolor (menus. bgSelect) ; 

itemize (row+curr, col, items [curr] , max - litem [curr]) 

_settextcolor (menus . fgNormal) ; 

_setbkcolor (menus. bgNormal) ; 

itemize (row+prev, col, items [prev] , max - litem [prev]) 



} 



} 



73 



/*********************************************************** 



BOX 

Draw menu box. 

<row> and <col> are upper left of box. 

<hi> and <wid> are height and width. 
************************************************************ 

/ 

void box(row, col, hi, wid) 
int row, col, hi, wid; 

{ 

int i ; 

char temp [80]; 

_settextposition(row,col) ; 
temp[0] = *menus.nw; 
memset (temp+1, *menus. ew, wid) ; 
temp[wid+l] = *menus.ne; 
temp[wid+2] = NULL; 

_outtext (temp) ; 

for (i = 1; i <= hi; ++i) { 

_settextposition(row+i,col) ; 

_outt ext (menus . ns) ; 

_settextposition (row+i , col+wid+1) ; 

_outtext (menus . ns) ; 

} 

_settextposition (row+hi+1 , col ) ; 
temp [ 0 ] = *menus . sw ; 
memset (temp+1 , *menus . ew, wid) ; 
temp[wid+l] = *menus.se; 
temp[wid+2] = NULL; 

_outtext (temp) ; 



/********************************************************* 

ITEMIZE 

Put an item in menu. 

<row> and <col> are left position. 

<str> is the string item. 

<len> is the number of blanks to fill. 

*********'k-k-k'k'k'k'k-k-k-k-k-k-k-kic'k‘k'k-k‘k‘k‘k-kic'k'k-k’k-k‘k‘k'k-k-k-k'k'k‘k'k-k-k-k-k-k‘k'k‘k-k-k/ 

void itemize (row, col , str, len) 
int row, col, len; 
char str [ ] ; 

{ 

char temp [80]; 

_settextposition(row,col) ; 
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_outtext ( " " ) ; 

_outtext (str) ; 
memset (temp, ' ' , len — ); 

temp [ len] = NULL; 

_outtext (temp) ; 

} 

/***************************************************** 

INITIALIZE 

Set the display mode <mode> is the mode to set. 
Returns 0 if mode is invalid, else returns nonzero. 
*******************************************************/ 

short initialize (mode) 
short mode; 

{ 

int ret, 

i = 0, 
btm, 

top = 63, 
inc , 

red = 0 , 
green = 0, 
blue = 0; 

_getvideoconf ig ( &vc) ; 
if (mode < _MRES4C0L0R) 
return ( 0) ; 

if ( ! (mode == vc.mode)) { 

if(!(ret = _setvideomode (mode) ) ) 
return (0) ; 

_getvideoconf ig (&vc) ; 

) 

else 

ret = mode; 

_setlogorg (0 , 0) ; 

_moveto(0, 0) ; 
return ( ret) ; 

} 
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y-k'k'k'k'k-k'k-k'k'k’k-k'k'kie’k-k-k-k’k'k'k-k-k’kic'k'k-k-k-k'k'k'k'k'k'k'k-k-k'k'k'k'k-kic'k-k'k-k'kic’k 

CURSOR_ON 

This function uses the dos call to a ROM 
BIOS routine to set the size of the cursor 

******************************************************/ 
void cursor_on ( ) 

{ 



union REGS regs ; /* register values for 

interrupts */ 



start = 7, 


/* 


starting scan 


line 




of 


cursor */ 




end = 8 ; 


/* 


end scan line 


of cursor */ 



/* set interrupt values */ 

regs.h.ch = (char) start; 
regs. h. cl = (char) end; 
regs. h. ah = CURSIZE; 

/* interrupt call */ 
int86 (VIDEO, &regs, &regs) ; 

return ; 

} 



/***************************************************** 

CURSOR_OFF 

This function uses the dos call to a ROM 
BIOS routine to set the size of the cursor 

******************************************************/ 
void cursor_off() 

{ 



union REGS regs; /* register values for 

interrupts */ 

/* set register values */ 

regs.h.ch = OFFBIT; 
regs. h. ah = CURSIZE; 

/* interrupt call */ 
int86 (VIDEO, Sregs, &regs) ; 
return ; 



} 
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/***★***■***********•*•***************************★**★****★**** 



DATE : 



16 Feb 89 - dsh 



FILE: 



models . c 



CONTENTS: Contains the functions for display of 

the schema and the genus graph. 

*********************************************************/ 

constant definations */ 



std ansi lib defs */ 

standard i/o function defs */ 

graphics defs */ 

symbol table defs */ 

defs for BIOS call to keyboard */ 

defs for strlen function */ 



functions */ 

#def ine MAX_LEVELS 8 

/* function prototypes for the functions in this file */ 



#include 


"defs.h" 


/* 


# include 


<malloc.h> 


/* 


# include 


<stdlib.h> 


/* 


# include 


<stdio. h> 


/* 


# include 


<graph. h> 


/* 


# include 


"symbol .h" 


/* 


# include 


<bios.h> 


/* 


# include 


<string.h> 


/* 


#include 


<ctype.h> 


/* 



void display_graph (void) ; 
void display_schema (void) ; 
void edit_schema (void) ; 

void install_position (char* , char* , short) ; 

void compute_positions (void) ; 

void read_schema (void) ; 

void place_text (void) ; 

void draw_lines (void) ; 

void draw_arrows (void) ; 

void display_message(char*) ; 

void build_calling_seq(char *,char *) ; 

void compute_positions (void) ; 



/* global head and tail for the Entity table linked list */ 

extern Entity * ehead; 
extern Entity * etail; 

/* global head and tail for the Relship table linked list */ 

extern Relship * rhead; 
extern Relship * rtail; 
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/* head and tail for the Position table linked list */ 

Position * phead = NULL; 

Position * ptail = NULL; 

/* array to track the number of genera on each level */ 
short number_on_level [MAX_LEVELS] ; 
char * cont_msg = "Any key to return to Menu" ; 
/*********************************************************** 



DISPLAY_GRAPH 

Function to display the genus graph. Adapted from the 
graphical interface work done by Wyant (Ref. 16) 

**********************************************************/ 
void display_graph ( ) 

{ 

struct videoconfig config; /* struct for return of 
video config info */ 



short 


maxx, 


/* max pixels on x axis 


*/ 




maxy ; 


/* max pixels of y axis 


*/ 


Relship 


*rp; 


/* pointer to relship 








linked list */ 




Position 


*pp ; 


/* pointer to position 
linked list */ 




int 


level , 


/* position level 
in graph */ 






length, 


/* strlen of message */ 






begin, 


/* beginning col 








of message */ 






i ; 


/* counter */ 





getvideoconf ig ( &conf ig) ; 



maxx = config . numxpixels ; 
maxy = config . numypixels ; 

/* read in the call information from ORACLE table */ 
read_relship ( ) ; 

/* install all pe on level 1 */ 



rp = rhead; 
level = 1; 
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while (rp != NULL) { 

if (strcmp (rp->e2 type, "pe") == 0) { 

install_position ( rp->e2name , rp->e2 type , level ) 

} 

rp = rp->next; 

} 

/* see if primitive entities exist 

in the model if not display error */ 

if (phead == NULL) { 

display_message ( "Bad Model - no primitive 

entities -> Please Renter") ; 
delete_from_entity ( ) ; 
delete_from_relship ( ) ; 
return; 

} 

rp = rhead ; 
pp = phead; 

while (pp != NULL) { 

/* check for all 

elements that call those on the position list */ 
while (rp != NULL) { 

if ( strcmp (pp->ename, rp->e2name) == 0) { 



install_position(rp->elname, rp->eltype ; (pp->level) +1) ; 

} 

rp = rp->next; 

} 

pp = pp->next; 
rp = rhead; 

} 

compute_positions ( ) ; 
place_text ( ) ; 
draw_arrows ( ) ; 
draw_lines ( ) ; 
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/* display any key message */ 

length = strlen (cont_msg) ; 
begin = 40 - (length/2) ; 
_settextcol or (BRWHITE) ; 
_settextposition(l, begin) ; 
_outtext (cont_msg) ; 

/* free memory */ 
free_relship_list ( ) ; 
free_position_list ( ) ; 
free_entity_list ( ) ; 

/* reset counters */ 

for (i =0 ; i< MAX_LEVELS ; i++) { 

number_on_level [ i ] = 0 ; 

) 

return ; 



/*********************************************************** 

DISPLAY_MESSAGE 

opens a text window and displays the text passed in 
by the argument 

*********************************************************/ 
void display_message (mess) 

char mess[50]; /* buffer to hold message to display */ 

{ 



long 


old_color ; 


/* 


old background color 






to 


restore */ 


short 


old_text_color 


>/* 


color to restore */ 


int 


mlength; 


/* 


length of message 






for centering */ 


char 


buffer [80] ; 


/* 


text buffer for continue 



. . . message */ 



old_color = _getbkcolor ( ) ; 
old_text_color = _gettextcolor ( ) ; 

_settextwindow ( 15 , 5 , 10 , 70) ; 
_settextcolor (BRWHITE) ; 
_setbkcolor (CYAN) ; 
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_clearscreen (_GWINDOW) ; 

/* center message */ 

mlength = strlen (mess) ; 
_settextposition (2 , 30- (mlength/2) ) ; 
_outtext (mess) ; 



sprintf (buffer , "Any key to continue ") ; 

mlength = strlen (buff er) ; 

_settextposition (4 , 30- (mlength/2) ) ; 

_outtext (buffer) ; 

_bios_keybrd(_KEYBRD_READ) ; 

/* restore the screen */ 



_settextcolor (old_text_color) ; 
_setbkcolor (old_color) ; 
_clearscreen (_GWINDOW) ; 

_settextwindow (1,1,25,80) ; 

return ; 



} 

/*********************************************************** 

INSTALL_POSITION 

This function places each entity found in display_graph 
into the position linked list. If the element is already on 
the list on the same display level it will not be added. If 
it is already on the list on a lower display level the lower 
level is converted to a place holder to allow the arc to 
span levels 

void install_position(ename,etype, level) 

char ename[20]; /* name of element */ 

char etype[8]; /* type of element */ 

short level; /* the display level 

of the element */ 

{ 

Position *pp, /* temp pointer to new structure */ 

*tp; /* temp pointer to walk through 
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the linked list */ 



/* create new structure */ 

pp = (Position *) malloc (sizeof (Position) ) ; 

strcpy (pp->ename, ename) ; 
strcpy (pp->etype, etype) ; 
pp->level = level; 
pp->next = NULL; 

/* if list is empty - add it */ 

if (phead == NULL) { 

phead = ptail = pp; 
number_on_level [ level ] ++ ; 
return ; 

} 

/* check to see if it is there already */ 

tp = phead ; 

while (tp ! = NULL) { 

if (strcmp (ename, tp->ename) == 0) { 

/* see if it is on a lower level 

if so we will make the lower level 
a space holder and add new position 
on higher level to list */ 

if(tp->level < level) { 

number_on_level [ level ] ++ ; 
strcpy (tp->etype , "sp" ) ; 
ptail->next = pp; 
ptail = pp; 
return ; 

) 

/* don't add second position if it 
is already on the list on this level */ 

else { 

free (pp) ; 
return; 

} 



) 

/* not same ename so look through 
the rest of list */ 
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tp = tp->next; 



} 

/* not on list so add to end */ 
number_on_level [ level ] ++ ; 
ptail ->next = pp; 
ptail = pp; 
return ; 



} 

/********************************************************** 
COMPUTE_POS I T I ON S 

Function to compute the x and y coordinates of the 
elements of the genus graph 



********************************************************* 



/ 



void compute_positions ( ) 



{ 



Position *pp; /* temp 


short 


maxx, 


/* 




maxy, 


/* 




max_level 


t 

/* 




xpos. 


/* 




yp°s , 


/* 




xint , 


/* 

on 




yint. 


/* 




level ; 


/* 


struct 


videoconf ig 


vc ; 



interval between elements 
level */ 

interval between levels */ 
counter for current level */ 



/* return variable that holds video 

config info */ 

_getvideoconf ig (&vc) ; 

maxx = vc.numxpixels; 
maxy = vc . numypixels ; 



max_level = ptail->level ; 
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level 



1 ; 



/* initialize pointer to head of list */ 
pp = phead; 

/* space genera evenly on screen */ 

yint = (short) (maxy/ (max_level + 1)); 

xint = (short) (raaxx/ (number_on_level [level ]+l) ) ; 

ypos = yint; 

xpos = xint; 

while (pp != NULL) { 

if(pp->level > level) { 
level++; 

xint = (short) (maxx 
/ (number_on_ level [level ]+l) ) ; 

ypos += yint; 
xpos = xint; 

) 

/* assign position */ 
pp->xpos = xpos; 
pp->ypos = ypos; 

/* increment x position and go to next position */ 
xpos += xint; 

PP = pp->next; 



) 

) 

/********************************************************** 

PLACE_TEXT 

Function to place the genus name on the genus graph 

void place_text() 

{ 



84 



Position *pp; /* temp pointer into position list */ 



struct videoconfig vc; 

/* return variable that holds video 





conf ig 


info */ 


short 




length, 


/* length of string to center */ 




maxx. 


/* max pixels in x direction */ 




maxy ; 


/* max pixels in y direction */ 


int 


centerx 


, /* col on which to 

center text */ 




centery 


; /* row on which to 

center text */ 


float 


textx = 


80.0, /* max values 

of text coordinates */ 




texty = 


28.0; /* must be floats to 

do coordinate 
conversion */ 


char 


type_buf[6]; /* buffer to hold 

entity type */ 



_getvideoconf ig (&vc) ; 

maxx = vc.numxpixels; 
maxy = vc.numypixels; 

pp = phead; 

while (pp ! = NULL) { 

/* convert graphics position to text row and col */ 

centerx = (short) (textx * (pp->xpos) /maxx) ; 
centery = (short) (28 - (texty * (pp->ypos) /maxy) ) ; 



length = strlen (pp->ename) ; 

_settextposition (centery , (centerx - (length /2))); 
if (strcmp(pp->etype, "sp") != 0) { 

_outtext (pp->ename) ; 

sprintf (type_buf , " /%s/" ,pp->etype) ; 

_outtext (type_buf ) ; 

) 
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PP = pp->next; 



} 



} 

/********************************************************** 



DRAW_ ARROWS 

Function to draw the arrow heads for lines representing 
the calls on the genus graph 






void draw_arrows ( ) 



{ 

short 



x, 

Y, 

maxx, 
maxy ; 



/* x pos of arrow tip */ 

/* y pos of arrow tip */ 

/* max pixels in x direction */ 
/* max pixels in y direction */ 



Position *pp; /* temp pointer to the position 

linked list */ 



struct videoconfig vc; 

/* return variable that holds video 

config info */ 

_getvideoconf ig (&vc) ; 

maxx = vc . numxpixels ; 
maxy = vc . numypixels ; 



pp = phead; 

while (pp != NULL) { 

/* draw arrowheads on all positions 
except spaceholders and pe */ 

if (strcmp(pp->etype, "sp" ) != 0) { 

if (strcmp(pp->etype, "pe" ) 1= 0) { 

x = pp->xpos; 

/* offset y from the text */ 
y = pp->ypos - 15; 



/* draw arrow head */ 
_moveto (x,maxy-y ) ; 
_lineto (x-3 ,maxy-y+4) ; 
_lineto (x+3 ,maxy-y+4) ; 
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lineto (x,maxy-y) ; 
floodfill (x,maxy-y+2 , BRWHITE) ; 
moveto (x,maxy-y+4 ) ; 
lineto (x,maxy-y+8) ; 



} 

} 

PP = pp->next; 

} 

return; 

} 



/********************************************************** 

DRAW_LINES 

Function to draw the lines representing the calls on 
the genus graph 

**********************************************************/ 
void draw_lines() 



{ 



Relship 


*rp; /* temp 


pointer to the 






relship 


linked list */ 




Position 


*pp; /* temp 


pointer to the 






position linked list */ 




Position 


*tp; /* pointer to find 






all calling elements */ 




short 


level_diff , 


/* vertical difference 






between two genus levels 




begin, 


/* begining level 
of line */ 






xbegin, 


/* x coordinate of 








called element 


*/ 




ybegin, 


/* y coordinate of 








called element */ 






xend, 


/* x coordinate of 
calling element */ 






yend, 


/* y coordinate 
of calling element 


*/ 




maxx, 


/* max pixels in x 




direction */ 


maxy ; 


/* max pixels in y 




direction */ 









struct videoconfig vc; 
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struct videoconfig vc; 

/* return variable that holds video 

config info */ 

char called_name[20] , /* temp buffers 

for the strings to 
compare */ 

calling_name[20] ; 

/* initailize pointers */ 

rp = rhead; 

_setcolor (BRWHITE) ; 

_getvideoconf ig ( &vc) ; 

maxx = vc. numxpixels ; 
maxy = vc.numypixels ; 

while (rp != NULL) { 

pp = phead; 

strcpy (cal led_name, rp->e2name) ; 
strcpy (calling_name, rp->elname) ; 



while (pp 1 = NULL) { 

/* find position of called element */ 

if (strcmp(called_name,pp->ename) == 0) { 

begin = pp->level; 
xbegin = pp->xpos; 
ybegin = pp->ypos ; 

/* look through the rest of list 

for all calling elements */ 

tp = pp->next; 

while (tp 1= NULL) { 

if (strcmp(calling_name,tp->ename) == 0) { 

level_diff = tp->level - begin; 
if (level_dif f == 1) ( 
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/* leave space for text if not space holder */ 

if (strcxnp (tp->etype, "sp" ) == 0) 
yend = tp->ypos; 

else 

yend = tp->ypos - 25; 

_moveto ( pp->xpos , 

maxy - pp->ypos) ; 

_lineto (xend,maxy-yend) ; 



if (level_diff > 1) { 

/* draw upper part from space holder */ 

xbegin = xend; 
ybegin = yend; 
xend = tp->xpos; 
yend = tp->ypos-25; 
_moveto ( xbegin , 

maxy-ybegin) ; 
_lineto (xend,maxy-yend) ; 

} 

} 

tp = tp->next; 



} 



} 



} 

pp = pp->next; 

} 

rp = rp ->next; 



89 



/********************************************************** 

DISPLAY_SCHEMA 

Function to display the model's structured modeling 
schema . 



***********************************************************/ 
void display_schema ( ) 

{ 



char buffer[240], /* buffer to hold genus para */ 

calling_seq[80] ; /* buffer to construct 

calling sequence */ 



struct rccoord text; 

int length, 

begin ; 

Entity * ep; 



/* current text row and col */ 

/* strlen of message */ 

/* beginning col of message */ 

/* pointer to linked list */ 



/* read in data */ 
read_schema ( ) ; 
read_relship ( ) ; 

/* set up screen */ 

_settextwindow( 1 , 1 , 25 , 80) ; 

_wrapon (_GWRAP0N) ; 

_settextcolor (BRWHITE) ; 

/* initialize pointer to top of list */ 

ep = ehead; 

while (ep != NULL) { 

if (strcmp (ep->etype, "model”) == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposition (text. row, text . col ) ; 
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sprintf (buffer, "%s 

%s . " , ep->ename , ep->coimnents) ; 
_outtext (buffer) ; 



else if (strcmp (ep->etype, "pe") == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposition ( text . row , text . col ) ; 
sprintf (buffer , "%s /pe/ %s.", 
ep->ename, ep->comxnents) ; 

_outtext (buffer) ; 



else if (strcmp (ep->etype , "ce" ) == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposition (text . row, text . col ) ; 

build_calling_seq (ep->ename, calling_seq) 

sprintf (buffer, "%s %s /ce/ %s %s.", 
ep->ename, calling_seq, ep->idx_stmt , 
ep->comments) ; 

_outtext (buffer) ; 



else if ( strcmp (ep->etype , "a" ) == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposition ( text . row , text . col ) ; 

build_call ing_seq ( ep->ename , call ing_seq) 

sprintf (buffer, "%s %s /a/ %s %s %s.", 
ep->ename, calling_seq, ep->idx_stmt , 
ep->grange, e p- >c °inments) ; 

_outtext (buffer) ; 



else if ( strcmp ( ep->etype, "va") == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposit ion ( text . row , text . col ) ; 
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build_calling_seq (ep->ename, calling_seq) 

sprintf (buffer , "%s %s /va/ %s %s %s.", 
ep->enaxne, calling_seq, ep->idx_stmt , 
ep->grange, ep->comments) ; 

_outtext (buffer) ; 



else if (strcmp (ep->etype, "t") == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextpos ition ( text . row , text . col ) ; 

build_calling_seq (ep->enaxne, calling_seq) 

sprintf (buffer , "%s %s /t/ %s ;%s %s.", 

ep->ename / calling_seq, ep->idx_stmt / 
ep->grule, ep->coraments) ; 

_outtext (buffer) ; 



else if (strcmp (ep->etype, "f") == 0) { 

text = _gettextposition ( ) ; 
text . row += 2 ; 
text. col = 0; 

_settextposition (text. row, text . col) ; 

build_calling_seq (ep->ename, calling_seq) 

sprintf (buffer , "%s %s /f/ %s ;%s %s.", 

ep->ename, calling_seq, ep->idx_stmt , 
ep-5-grule, ep->comments) ; 

_outtext (buffer) ; 

} 

ep = ep->next; 



) 

/* display any key message */ 

length = strlen (cont_msg) ; 
begin = 40 - (length/2) ; 
_settextcolor (BRWHITE) ; 
_settextposition (1 , begin) ; 
_outtext (cont_msg) ; 
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/* free memory */ 
f ree_entity_list ( ) ; 
free_relship_list ( ) ; 
return ; 



} 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★Tit 



BU I LD_CALLI N G_S EQUENCE 

function to build the calling sequence for genus ename 
by looking at the relship linked list 



***********************************************************/ 



void build_calling_seq(ename, calling_seq) 



char ename [20], 

calling_seq[80] ; 

{ 



/* name of entity we are buiding 
calling sequence for */ 

/* buffer to concatenate 
calling seq */ 



int length; /* length of calling seq */ 

Relship *rp; 



rp = rhead; 

strcpy (calling_seq, " (") ; 

while (rp != NULL) { 

if (strcmp(rp->elname, ename) ==0) { 

strcat (calling_seq, rp->e2name) ; 
strcat (calling_seq, " , " ) ; 

) 

rp = rp->next; 



/* add right paren at end in place of final comma */ 

length = strlen (calling_seq) ; 
calling_seq[length-l] = ')'; 

return ; 



} 
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/jcJcjcjcjcjcj'j'Icj'j'j'jcjcjcjejcjc’k'k'klc'k'k'klc'k'k'k'k'k'k'kjcjc'kjc'k'k'k-k'k-k'k'k'k'k'k'k'kjc'kJcjc'k'k'k'k'k 

EDIT_SCHEMA 

function to allow user to add the index statement, the 
generic range and the natural language interpretation 
that were not generated by the parser 

*********************************************************/ 

char * mlinel = "ADD MODEL DOCUMENTATION"; 
char * mline2 = "Enter (E)dit (S)kip or (Q)uit" ; 



void edit_schema ( ) 



Entity * ep; 



int length, 

done = FALSE, 
begin, 

line, 

c; 



char string[2], 
line_buf [81] ; /* 



/* temp pointer to entity 
linked list */ 

/* length of centered msg */ 
/* finished flag */ 

/* begining col of centered 
text */ 

/* current text line */ 

/* value of character 
returned from getche */ 

/* buffer for edit choice */ 
iffer for mnemonic name */ 



read_schema ( ) ; 

/* initialize full screen text window */ 

_setbkcolor (BLACK) ; 

_settextwindow(l, 1 , 25 , 80) ; 

_clearscreen (_GWINDOW) ; 

length = strlen (mlinel) ; 
begin = 40 - (length/2) ; 

_settextcolor (RED) ; 

_settextposition(4 , begin) ; 

_outtext (mlinel) ? 

_settextposition(8, 25) ; 

_settextcolor (BRWHITE) ; 

_outtext (mline2 ) ; 

_setcolor (RED) ; 

box ( 3 , begin-1 , 1 , length) ; 
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ep = ehead; 



while (ep != NULL) { 

while ( ! done) { 

_settextcolor (BRWHITE) ; 

_settextposition (12 , 5) ; 
_outtext ( "Genus Name: "); 

_outtext (ep->ename) ; 
_settextposition (12 , 42 ) ; 
_outtext ( "Index: " ) ; 

_outtext (ep->etype) ; 



/* check to see what we want to do */ 



f flush (stdin) ; 
c = getch (stdin) ; 



switch (c) { 

case ' e ' : 
case ' E ' : 

{ 

/* set new text window for prompts */ 

_setbkcol or (BLACK) ; 

_settextwindow(14 , 1, 25, 80) ; 
_clearscreen (_GWIND0W) ; 



/* edit idx_stmt grange and comments */ 
fflush( stdin) ; 

_settextposition (2 , 5) ; 

_outtext ("Enter the Index Statement:" ); 
_settextposition (3 , 5) ; 
gets (line_buf ) ; 

strcpy (ep->idx_stmt , line_buf ) ; 
_settextposition (5 , 5) ; 

_outtext ( "Enter the Generic Range"); 
_settextposition (6 , 5) ; 
gets (line_buf ) ; 
strcpy (ep->grange , line_buf) ; 
_settextposition (8 , 5) ; 

_outtext ("Enter the Interpretation:" ); 
_settextposition (9 , 5) ; 
gets (line_buf ) ; 
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strcpy (ep->comments , line_buf ) ; 
done = TRUE; 

/* clear the prompts */ 
_clearscreen (_GWINDOW) ; 

/* text window is full screen */ 
_settextwindow(l, 1, 25, 80) ; 

break; 

} 

case 's'; 
case 'S': 

{ 

/* skip this one */ 
done = TRUE; 
break; 

} 

case * q ' ; 
case ' Q ' : 

{ 

/* save changes and free memory */ 
delete_from_entity ( ) ; 
write_entity ( ) ; 
free_entity_list ( ) ; 
return ; 

} 

default : 

{ 

continue; 

} 

} 

} 

clear_line (12 ) ; 
ep = ep->next; 
done = FALSE; 

} 

/* write to ORACLE and free memory */ 

delete_from_entity ( ) ; 
write_entity ( ) ; 
free_entity_list () ; 
return ; 



) 
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^/*********************************************************** 



DATE : 
FILE: 



22 Jan 89 - dsh 
enter . c 



CONTENTS: Functions that allow the user to enter a new 

model in mathematical format and convert this format to 
the entity and relship tables defined in the ORACLE 
database. 

********************************************************/ 

constant definations */ 
memory allocation function defs */ 
std ansi lib defs */ 
standard i/o function defs */ 
graphics defs */ 

symbol table defs */ 
defs for BIOS call to keyboard */ 
defs for symbol types */ 
defs for strlen function */ 
defs for character 
type functions */ 



#include 


"defs . h" 


/* 


# include 


<malloc.h> 


/* 


#include 


<stdlib.h> 


/* 


#include 


<stdio.h> 


/* 


#include 


<graph.h> 


/* 


#include 


"symbol . h" 


/* 


# include 


cbios . h> 


/* 


#include 


"ytab.h" 


/* 


#include 


<string.h> 


/* 


#include 


<ctype.h> 


/* 



/* function prototypes for the functions in the file */ 

void yyerror (void) ; 
void delete_equation ( int) ; 
void translate_table (void) ; 
void clear_line ( int) ; 

void install_entity (char *,char *,char * , char *, 

char * , char *,char *,char *) ; 
void install_relship (char *,char *,char *,char *,char *) ; 
void enter_model_description (void) ; 
void rename_genus_relship (char* , char*) ; 
void f ree_entity_list (void) ; 
void f ree_module_list (void) ; 
void free_relship_list (void) ; 
void change_relship_type (char *) ; 
void build_monotone_order (char*) ; 

void install_module (char* , char* , char* , char* , char* , int) ; 

void build_grules (void) ; 

void change_symbol (char* , char*) ; 

void insert_grule (char* , int); 
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/* global head and tail for the symbol table linked list */ 



Symbol *head = NULL; 

Symbol *tail = NULL; 

/* global head and tail for the Entity table linked list */ 

Entity * ehead = NULL; 

Entity * etail = NULL; 

/* global head and tail for the Relship table linked list */ 

Relship * rhead = NULL; 

Relship * rtail = NULL; 

/* global head and tail for the Module table linked list */ 

Module * mhead = NULL; 

Module * mtail = NULL; 

/* head and tail for the Position table linked list */ 

extern Position * phead; 
extern Position * ptail; 

/********************************************************** 



Called by the parser in the case of a syntax error. 
Opens text window and displays location of the error. 
*********************************************************/ 

void yyerror() 



YYERROR 



char buffer[ 80 ]; 



/* buffer to hold text 
error message */ 

/* text buffer used by 
YACC parser to hold current 
token */ 



extern char yy text [ ] ; 



long old_color; 
int mlength; 



/* old background color */ 
/* length of text message 
for centering */ 



old_color = _getbkcolor ( ) ; 
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_settextwindow(15 , 10, 20, 70) ; 

_settextcolor (BRWHITE) ; 

_setbkcolor (CYAN) ; 

_clearscreen (_GWINDOW) ; 

/* output syntax error found */ 
sprintf (buffer, 

"Syntax Error-> Unexpected Symbol: %s",yytext); 
mlength = strlen (buffer) ; 
_settextposition(2,30-(mlength/2) ) ? 

_outtext (buffer) ; 

sprintf (buffer , "Any key to continue ") ? 

mlength = strlen (buffer) ; 

_settextposition (6 , 30- (mlength/2) ) ; 

_outtext (buffer) ; 

/* wait for any key */ 
_bios_keybrd(_KEYBRD_READ) ; 

/* reset screen */ 

_setbkcolor (old_color) ; 

_clearscreen (_GWIND0W) ; 

_settextwindow (1,1,25,80) ; 

_settextpos i tion (5,5) ; 



} 

ENTER_MODEL 

Function that will prompt the user for model to input. 
Calls function to write the model to the ORACLCE database. 



***************************** 
char omess[] = 

"Enter the Objective function 
int lomess = sizeof (omess) ; 
extern char * input_po inter; 

char eguation_buf fer[80] ; 



****************************/ 



or END to exit to main menu"; 

/* length of message used 
for centering */ 

/* pointer to the current 
input character to be read 
by scanner */ 

/* buffer that holds 
current equation */ 



void enter_model ( ) 
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{ 



name [20] , 
namel[20] ; 
int status = 1; 
int lmess ; 



int equation_no = 0; 
char buffer[80], 
ebuf [3] , 



int line; 



/* counter for the equations */ 
/* buffer for prompts */ 

/* buffer for 
equation_no string */ 

/* model name */ 

/* input model name */ 

/* parser error status */ 

/* length of message 
used for centering */ 

/* current text line */ 



char eq[ 6] ; 



int i ; 



/* text string used to 
concatenate with equation # 
for a temporary variable name */ 
/* index */ 



/* window is full screen */ 

_setbkcolor (BLACK) ; 

_settextcolor (BRWHITE) ; 
_settextwindow (1,1,25,80) ; 
_clearscreen (_GWIND0W) ; 

_settextposition (5 , 5) ; 

_outtext ( "Enter the model Name> ") ; 
gets (namel) ; 
clear_line (5) ; 



strcpy ( name , "M_" ) ; 
strcat (name, namel) ; 

install_entity (name, "model"," »,» "," ") ; 

cursor_on() ; 
line = 5; 
strcpy (eq, "EQN" ) ; 

/* enter the objective function */ 
while (status == 1) { 

_settextcolor (BRWHITE) ; 

_settextposition(3 , 40- (lomess/2) ) ; 

_outtext (omess) ; 

_settextposition(line, 5) ; 
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_outtext ( "OBJ> Z = ") ; 
status = yyparse (equation_no) ; 



/* check to see if syntax error - if so 
remove symbols from table */ 

if (status == 1) { 

*input_po inter = NULL; 

delete_equation (equation_no) ; 

clear_line(3) ; 
clear_line (5) ; 



} 



} 

/* install objective function as entity */ 

for(i = 0;i<80;i++) { 

if (iscntrl (equation_buffer[i] ) != 0) { 

equation_buf fer [ i ] = NULL; 

) 

} 

if (tail->s_type != END) { 

install_entity ( "EQNO" , "f " , " " 

equation_buf fer , " "); 

} 

/* set variable for second equation */ 
line++ ; 

equation_no++ ; 
status = 1 ; 

/* loop until the END symbol is entered */ 



while (tail->s_type 1= END) { 

clear_line(3) ; 
clear_line (line) ; 

sprintf (buffer, 

"Enter Equation for constraint Number 

%d or END after last constraint", equation_no) ; 

lmess = strlen (buffer) ; 
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_settextposition ( 3 , 40- ( lmess/2 ) ) ; 
_outtext (buffer) ; 

_settextposit ion ( line , 5) ; 

sprintf (buffer , "EQN %d> " , eguation_no) ; 

_outtext (buffer) ; 

status = yyparse (equation_no) ; 



/* check to see if syntax error - if so 

remove symbols from table */ 

if (status == 1) { 

*input_pointer = NULL; 

delete_equation (equation_no) ; 

} 

else { 

/* install constraint as entity */ 

itoa (equation_no,ebuf , 10) ; 
s treat (eq, ebuf ) ; 

for(i = 0;i<80;i++) { 

if (iscntrl (equation_buf fer [i] ) != 0) { 

equation_buf fer [ i) = NULL; 

} 

} 

if (tail->s_type != END) { 

install_entity (eq, "t" , " ", 

equation_buf fer , " ") ; 

} 

eq[ 3 ] = NULL; 
equation_no++ ; 
line++ ; 

) 



} 

translate_table ( ) ; 
enter_model_description ( ) ; 
build_grules ( ) ; 
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build_monotone_order (name) ; 
write_entity ( ) ; 
write_relship( ) ; 
write_module ( ) ; 
free_entity_list ( ) ; 
free_relship_list ( ) ; 
free_module_list ( ) ; 
return ; 

) 

★ it******************************************************* 

CLEAR_LINE 

Function that will clear text line. Line is cleared in 
the currently defined text window. 

********************************************************/ 
void clear_line (line) 

int line; /* line number to be cleared */ 

{ 

char buffer[80]; 

_settextposition(line, 1) ; 
sprintf (buffer, 

tl 

") ? 

_outtext (buffer) ; 



} 
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/******************************************************** 

DELETE_EQUATION 

Function to remove excess symbols from the end of the 
symbol table when a syntax error occurs. The symbol table 
is referenced by the global head and tail pointers. The 
symbols to be deleted will always be the last on the linked 
list 

********************************************************/ 
void delete_equation (eqno) 

int eqno; /* equation number to be deleted */ 

{ 

Symbol * lp, /* temp pointers to 

symbol table entries */ 

* tp; 



/* no symbols on list */ 

if (head == NULL) { 
return ; 

) 

else { 

/* equation is the only entry on the table */ 
if (head->equation == eqno) { 

/* set pointer to first symbol to delete */ 
tp=lp=head; 

/* set head and tail to empty list */ 

head = tail = NULL; 

/* free memory used in symbols */ 

while (lp ! = NULL) { 

lp = tp->next; 
free((void *)tp); 
tp = lp; 

) 
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return ; 

} 

/* more than one equation on the symbol table */ 

else { 

tp = head; 
lp = tp->next; 

while (lp != NULL) { 

if ( lp->equation == eqno) { 
tail = tp; 

/* free memory used in symbols */ 

while (lp ! = NULL) { 
tp = lp; 
lp = tp->next; 
free((void *)tp); 

) 

return ; 



else { 

tp = lp; 

lp = tp->next; 



) 



) 



} 



) 
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******************************************************** 

TRANSLATE_TABLE 

Function to translate the symbol table created by the 
scanner to the form needed for entry into the relational 
tables of ORACLE RDBMS 

*******************************************************/ 
void translate_table ( ) 

{ 



Symbol *lp, 

*tp; /* leading and trailing pointers used for 
walking down the symbol table list */ 
i, /* index for counting */ 
length; /* number of indices 
in compound index */ 

ibuf[2]; /* index buffer for seperating 
compound indices */ 

ebuf[3]; /* temp buffer to hold equation name */ 

eq[6]; /* text string used to concatenate 

with equation # for a temporary 
variable name */ 



/* initailize pointers to the begining of list */ 
tp = head; 



if (head == NULL) { 

fprintf (stderr, "The symbol table is empty - 
Please reenter your model") ; 
exit ( 1) ; 

} 

lp = head->next; 



strcpy (eq, "EQN" ) ; 

/* go through entire table */ 
while (lp != NULL) { 

switch (tp->s_type) { 
case END: 



int 

char 

char 

char 
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{ 

return ; 

} 

case IDENTIFIER: 

{ 



if (lp->s_type == INDEX) { 

length = strlen (lp->s_name) ; 
if (length >1) { 

install_relship ( "CALLS” , tp->s_name, "a" , lp->s_name, "ce" ) ; 
install_entity (lp->s_name, "ce", " " ," ") ; 

/* break up index */ 

for (i=0;i<length;i++) { 

ibuf[0] = lp->s_name[i] ; 
ibuf [ 1] = NULL; 

install_entity ( ibuf , "pe" , " ",ibuf," "," ") ; 

install_relship ( "CALLS" , lp->s_name, "ce" , ibuf, "pe" ) ; 

} 



) 

else { 

install_relship ( "CALLS" , tp->s_name , "a" , lp->s_name , "pe" ) ; 
install_entity (lp->s_name, "pe" , " " , lp->s_name, " "," "," " 

") ; 



) 

install_entity (tp->s_name, "a", " "); 

itoa (tp->equation, ebuf , 10) ; 
strcat (eq, ebuf ) ; 
if (tp->equation == 0) { 

install_relship ( "CALLS" , eq, " f " 
tp->s_name, "a") ; 

) 

else { 

install_relship ("CALLS" , eq, "t" 
tp- > s_name, "a" ) ; 



) 



eq[ 3 ] = NULL; 
tp = lp; 
lp = tp->next; 
break ; 



} 

} 

default: 

{ 

tp = lp; 

lp = lp->next; 

break; 

} 



} 

} 

return ; 



******************************************************** 

INSTALL_ENTITY 

function to install entity found in LP model into 
entity linked list. Creates list if list is empty and 
checks to aovid double entries 

********************************************************/ 

void install_entity (ename, etype,dname, index, 

index_stmt , grange , grule , comments ) 



char 


ename [20]; /* 


name 


of entity */ 


char 


etype [ 4 ] ; /* 


type 


of entity */ 


char 


dname[30]; /* 


descriptive name of entity */ 


char 


index[8]; /* 


index set */ 


char 


index_stmt [ 50 ] ; 


/* 


index statement */ 


char 


grange [20] ; 


/* 


generic range stmt */ 


char 


grule [80] ; 


/* 


generic rule */ 


char 


comments [80] ; 


/* 


informal interpertation */ 



{ 



Entity * ep, 

*tp ; 


/* temp pointer to 
/* temp pointer to 
for duplicates */ 


structure */ 
check 


int same; 


/* return variable 


from 



strcmp() 0 if entity 
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is in list */ 



/* dynamically allocate memory for structure */ 

ep = (Entity *) malloc (sizeof (Entity )) ; 

/* assign values to structure */ 

strcpy (ep->ename, ename) ; 
strcpy (ep->etype, etype) ; 
strcpy (ep->dname,dname) ; 
strcpy (ep->idx, index) ; 
strcpy (ep->idx_stmt, index_stmt) ; 
strcpy (ep->grange, grange) ; 
strcpy (ep->grule,grule) ; 
strcpy (ep->comments , comments) ; 
ep->next = NULL; 



/* is list empty - add to head */ 

if (ehead == NULL) { 

ehead = etail = ep; 
return ; 

} 

/* check list for duplicates */ 

tp = ehead; 

while (tp ! = NULL) { 

same = strcmp (ename , tp->ename) ; 

if (same == 0) { 

/* already in list */ 
free (ep) ; 
return ; 

} 

else 

tp - tp->next; 

} 

/* not found - so add to end of list */ 
etail->next = ep; 
etail = ep; 
return ; 



} 
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/******************************************************** 

INSTALL_RELSHIP 

installs relationship found in LP model into relship 
table, checks to see if table is empty or if the 
relationship is already represented. 

**********************************************************/ 
void install_relship (rtype, elname, eltype, e2name, e2type) 



char 


rtype [12] ; 


/* 


type 


of 


char 


elname [20] ; 


/* 


name 


of 


char 


eltype[8] ; 


/* 


type 


of 


char 


e2name[20] ; 


/* 


name 


of 


char 


e2type[8] ; 


/* 


type 


of 



relationship */ 
calling element */ 
calling element */ 
called element */ 
deed element */ 



{ 



Relship * rp, 
*tp ; 



/* temp pointer to structure */ 
/* temp pointer to check 
for duplicates */ 



int samel, same2; /* return variables from 

strcmp() 0 if entity 
is in list */ 



/* dynamically allocate memory for structure */ 



rp = (Relship *) malloc (sizeof (Relship) ) ; 
/* assign values to structure */ 



strcpy (rp->rtype, rtype) ; 
strcpy (rp->elname, elname) ; 
strcpy (rp->eltype, eltype) ; 
strcpy (rp->e2name, e2name) ; 
strcpy (rp->e2type, e2type) ; 
rp->next = NULL; 



/* is list empty - add to head */ 

if (rhead == NULL) { 

rhead = rtail = rp; 
return ; 



} 
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/* check list for duplicates */ 

tp = rhead ; 

while (tp ! = NULL) { 

samel = strcmp (elname, tp->elname) ; 
same2 = strcmp (e2name, tp->e2name) ; 

if ((samel == 0) && (same2 == 0) ) { 



/* already in list */ 

free (rp) ; 
return ; 

) 

else 

tp = tp->next; 



} 

/* not found - so add to end of list */ 

rtail->next = rp; 
rtail = rp; 
return ; 



) 

/******************************************************* 

ENTER_MODEL_DESCRIPTION 

function to enter the mnemonic genus names into the 
model description. 

******************************************************/ 

char * linel = "ENTER MODEL DESCRIPTIVE INFORMATION"; 

char * line2 = "Genus Name Genus Type Mnemonic Genus 

Name Generic Rule"; 

char * line3 = "Writing to ORACLE RDBMS table "; 

void enter_model_description ( ) 

{ 



Entity * ep; /* temp pointer to entity 
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int length, 
begin, 

1 ine ; 



linked list */ 

/* length of centered msg */ 

/* begining col of centered text */ 
/* current text line */ 



char naxue[20], /* buffer for mnemonic name */ 

yorn[2]; /* buffer for Yes or No answer */ 



/* initialize text window */ 



_setbkcolor (BLACK) ; 
_settextcolor (BRWHITE) ; 
_set textwindow (1,1,25,80) ; 
_clearscreen (_GWIND0W) ; 
cursor_on ( ) ; 



length = strlen(linel) ; 
begin = 40 - (length/2) ; 
_settextcolor (RED) ; 
_settextposition (4 , begin) ; 
_outtext (linel) ; 

_settextcolor (BRWHITE) ; 
_settextposition(6, 1) ; 

_outtext (line2) ; 

box (3 ,begin-l, 1, length) ; 

line = 7; 
ep = ehead ; 

/* put out genus names */ 

while (ep != NULL) { 

_settextposition(line, 5) ; 
_outtext (ep->ename) ; 
_settextposition(line, 22) ; 
_outtext (ep->etype) ; 
_settextposition(line, 47) ; 
_outtext (ep->grule) ; 

line++ ; 

ep = ep->next; 

} 

1 ine = 7 ; 
ep = ehead; 

/* accept mnemonics */ 
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while (ep != NULL) { 

_settextposition(line, 30) ; 
gets (name) ; 

/* check to see if this is a decision variable */ 

if (strcmp (ep->etype, "a") == 0) { 

_settextposition (line, 45) ; 

_outtext ("Decision variable ?(Y/N) ") ; 

gets (yorn) ; 

if (strcmpi (yorn, "y") == 0) { 

strcpy ( ep->etype , "va" ) ; 
change_relship_type (ep->ename) ; 

} 

} 

/* check to see if new name was entered 
and replace if it was */ 

if (isalnum(name[0] ) != 0) { 

/* name for pe will include index */ 

if (strcmp (ep->etype , "pe" ) == 0) { 

s treat (name, ep->ename) ; 

} 

rename_genus_relship (ep->ename , name) ; 
change_symbol (ep->ename , name) ; 

/* replace with new descriptive name */ 
strcpy (ep->ename, name) ; 

} 

ep = ep->next; 
line++ ; 

} 

length = strlen(line3) ; 
begin = 40 - (length/2) ; 

_settextcolor (BRWHITE) ; 

_settextposition (23 , begin) ; 

_outtext (line 3) ; 



} 
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RENAME_GENUS_RELSHIP 

checks through the entire relship linked list to replace 
oldname with the mnemonic new name. 



void rename_genus_relship (oldname, newname) 



char 

{ 



* oldname, 

* newname; 



/* name of genus to be renamed */ 

/* replacement mnemonic name */ 



Relship * rp; /* temp pointer into relship 

linked list */ 

int test; /* return value from strcmp = 0 

if match */ 

/* pointer to top of list */ 
rp = rhead; 

/* check through all names on the list */ 

while (rp != NULL) { 

/* check calling element */ 

test = strcmp (rp->elname, oldname) ; 

if (test == 0) { 

strcpy (rp->elname, newname) ; 

} 

/* check called element */ 

test = strcmp (rp->e2name, oldname) ; 



if (test == 0) { 

strcpy (rp->e2name, newname) ; 

} 



rp = rp->next; 



} 



) 
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/******************************************************** 

CHANGE_RELSHIP_TYPE 

checks through the entire relship linked list to replace 
change the entity type of ename to va. This is caled when a 
decision variable is identified 

**********************************************************/ 
void chang e_relship_type (ename) 

char * ename; /* name of decison variable */ 

{ 

Relship * rp; /* temp pointer into relship 

linked list */ 

/* pointer to top of list */ 
rp = rhead; 

/* check through all names on the list */ 
while (rp != NULL) { 

/* check calling element */ 

if (strcmp (ename, rp->elname) == 0) { 

strcpy (rp->eltype, "va” ) ; 

} 

/* check called element */ 

if (strcmp (ename, rp->e2name) == 0) { 

strcpy (rp->e2type, "va" ) ; 

} 

rp = rp->next; 

} 

} 
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/***************************************************** 



FREE_ENTITY_LIST 

frees dynamic memory used by entity linked list 

*****************************************************/ 
void free_entity_list ( ) 

{ 

Entity *lP/ 

*tp ; 

tp = ehead; 
lp = tp->next; 

ehead = NULL; 

while (lp != NULL) { 

free (tp) ; 

tp = lp; 

lp - tp->next; 

} 

free (tp) ; 

} 

/******************************************************** 

FREE_RELSHIP_LIST 

frees dynamic memory used by relship linked list 

*********************************************************/ 
void f ree_relship_list ( ) 

{ 

Relship *lp, 

*tp ; 

tp = rhead; 
lp = tp->next; 

rhead = NULL; 

while (lp ! = NULL) { 
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free (tp) ; 

tp = lp; 

lp = tp->next; 

} 

free (tp) ; 

} 

FREE_MODULE_LI ST 

frees dynamic memory used by module linked list 

*********************************************************/ 
void free_module_list ( ) 

{ 

Module *lp, 

*tp; 

tp = mhead; 
lp = tp->next; 

ehead = NULL; 

while (lp ! = NULL) { 

free (tp) ; 

tp = lp; 

lp = tp->next; 

} 

free(tp) ; 

} 

/******************************************************** 
FREE_POS IT ION_LI ST 

frees dynamic memory used by position linked list 

********************************************************/ 
void free_position_list ( ) 

( 
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Position *lp, 

*tp; 

tp = phead; 
lp = tp->next; 

phead = NULL; 

while (lp ! = NULL) { 

free (tp) ; 

tp = lp; 

lp = tp->next; 

) 

free (tp) ; 

} 

/********************************************************* 

BUILD_MONOTONE_ORDER 

provides the modular structure in monotone order - 
insuring no forward references. Calls write_modular to enter 
into ORACLE relship table 

*********************************************************/ 

void build_monotone_order (name) 

char name [20] ; /* model name */ 



Relship *rp; /* pointer to relship linked list */ 

Module *mp; /* pointer to module linked list */ 

int rel_pos =1; /* relative position in 

the order */ 



/* install all pe on level 1 */ 
rp = rhead; 



while (rp != NULL) { 

if (strcmp(rp->e2type, "pe") == 0) { 

install_module ( "CONTAINS" , name , "model" , 
rp->e2name, rp->e2type, rel_pos) ; 
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rel_pos++; 

} 

rp = rp->next; 

} 

/* initialize pointers to begining of lists */ 

rp = rhead; 
mp = xnhead; 



while (mp != NULL) { 

/* check for all elements that call those on the 
list */ 

while (rp != NULL) { 

if (strcmp(mp->e2name, rp->e2name) == 0) { 

install_module ("CONTAINS" ,name, "model" , 
rp->elname, rp->eltype, rel_pos) ; 
rel_pos++ ; 

} 

rp = rp->next; 



mp = mp->next; 
rp = rhead; 



} 



) 



INSTALL_MODULE 

This function places each module found in into the 
module linked list. If the element is already on the 
list in the same display level it will not be added. If it 
is already on the list on a lower display level the lower 
level is converted to a place holder to allow the arc to 
span levels 

********************************************************/ 

void 

install_module (rtype, elname, eltype, e2name, e2type, rel_pos) 
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char 


rtype [12] ; 


/* 


type 


of relationship */ 


char 


elname [20 ] ; 


/* 


name 


of calling element */ 


char 


eltype [ 12 ] ; 


/* 


type 


of calling element */ 


char 


e2name[20] ; 


/* 


name 


of called element */ 


char 


e2type [ 12 ] ; 


/* 


type 


of called element */ 


int 


rel_pos ; 


/* relative position in the order */ 



{ 



Module *mp; /* temp pointer to new structure */ 

Module *tp; /* temp pointer to linked list 

used to check if element is 
already in list */ 



/* create new structure */ 

mp = (Module *) malloc (sizeof (Module) ) ; 

strcpy (mp->rtype, rtype) ; 
strcpy (mp->elname, elname) ; 
strcpy (mp->eltype, eltype) ; 
strcpy (mp->e2name, e2name) ; 
strcpy (mp->e2type, e2type) ; 
mp->rel_pos = rel_pos; 
mp->next = NULL; 



/* is list empty - add to head */ 

if (mhead == NULL) { 

mhead = mtail = mp; 
return ; 

} 

/* check list for to see if the element is there already 
if it is there is a forward reference and we need to 

change the rel_pos of the element on the list */ 

tp = mhead; 

while (tp ! = NULL) { 



if (strcmp (e2name, tp->e2name) == 0) { 
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/* already in list - change the rel_pos to 
eliminate forward reference */ 

tp->rel_pos = rel_pos; 
free (mp) ; 
return ; 



else 

tp = tp->next ; 



} 

/* not found - so add to end of list */ 

mtail->next = mp; 
mtail = mp; 
return ; 



} 



/********************************************************* 
CHANGE SYMBOL 



This function will change the mathematical symbol in 
the symbol table to the new descriptive name entered. 
This will allow us to construct a generic rule using 
the descriptive names 



*********************************************************/ 



void change_symbol (oldname, newname) 



char oldname [20], 
newname [20] ; 



/* mathematical symbol name */ 
/* new descriptive name */ 



{ 

Symbol * sp; /* temp pointer to symbol 

table list */ 

sp = head; 

while (sp ! = NULL) { 



if (sp->s_type == IDENTIFIER) { 

if (strcmp(sp->s_name, oldname) == 0) { 

strcpy (sp->s_name, newname) ; 

} 

) 
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} 



sp = sp->next? 



} 

/********************************************************* 



BUILD_GRULES 

This function will concatenate the generic rule 
from the symbol table after the descriptive names 
have been entered. 

*********************************************************/ 
void build_grules ( ) 



Symbol *sp; /* temp pointer to symbol table */ 

int equation =0; /* counter for the equation number */ 

char grule_buf [ 80 ] ; /* temp buffer for grule */ 

sp = head; 

grule_buf [ 0 ] = NULL; 

while (sp->s_type != END) { 

if (sp->equation == equation) { 

strcat (grule_buf , sp->s_name) ; 

} 

else { 

insert_grule (grule_buf , equation) ; 
grule_buf [ 0 ] = NULL; 
strcat (grule_buf, sp->s_name) ; 
equation ++; 

} 

sp = sp->next; 

) 

insert_grule (grule_buf , equation) ; 



) 
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/********************************************************** 



INSERT_GRULE 

Function to insert the new descriptive generic rule 
into the entity linked list. The rule is inserted 
into the function of test element that corresponds 
to the number equation. Note: This function relies 
on the fact that the the f and t entities are inserted 
in the order the are entered as mathematical equations. 



***********************************************************/ 



void insert_grule (grule, eq_no) 



char grule [80]; 

int eq_no ; 



/* descriptive grule to enter */ 

/* corresponding equation number */ 



{ 



V 



Entity 



'ep; 



/* temp pointer to entity linked list 



int count =0, /* count of the f or t entity found */ 
ftest, /* return variables from strcmp test */ 

ttest ; 



ep = ehead; 

while (ep != NULL) { 



ttest = strcmp (ep->etype, "t") ; 
ftest = strcmp (ep->etype, "f") ; 

if (ftest == 0 | | ttest == 0) { 

if (count == eq_no) ( 

strcpy (ep->grule, grule) ; 
return ; 

) 

count++ ; 



} 

ep = ep->next; 



} 
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/******************************************************* 
DATE: 1 Jan 89 - dsh 

FILE: oracle_r.pc 

CONTENTS: function to read from the ORACLE database. 

This is the C version. This file must be precompiled with 
the PRO*C precompiler before compliling with the other 
files. This precompilitation is automatically done by using 
MAKE. 

*********************************************************/ 

# include "symbol. h" 

#include <stdio.h> 



/* fuction prototypes */ 

int read_entity (void) ; 
int read_relship (void) ; 
void delete_from_relship (void) ; 
void delete_from_entity (void) ; 



extern Entity * ehead; 

extern Relship * rhead; 



EXEC SQL BEGIN DECLARE SECTION; 



VARCHAR uid[20] ; 

VARCHAR pwd[20); 

VARCHAR ename [20]; 

VARCHAR etype [ 12 ] ; 

VARCHAR dname [20]; 

VARCHAR idx [ 4 ] ; 

VARCHAR idx_s tmt [50]; 

VARCHAR grange [20]; 

VARCHAR grule[80]; 

VARCHAR comments [80] ; 



VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 



rtype [ 8 ] ; 
elname[20] ; 
eltype[12] ; 
e2name[20] ; 
e2type[12] ; 



EXEC SQL END DECLARE SECTION; 
EXEC SQL INCLUDE SQLCA; 
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/A********************************************************** 



RE AD_S CHEMA 

Function to read the global entity linked 
list from the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 

★★a******************************************************/ 



int read_schema ( ) 

{ 

/* login to oracle */ 



strcpy (uid. arr, "dsh") ; 
uid.len = strlen (uid. arr) ; 
strcpy (pwd. arr, "thesis") ; 
pwd.len = strlen (pwd . arr) ; 



EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

EXEC SQL DECLARE Cl CURSOR FOR 
SELECT 

ENAME , ETYPE , DNAME , IDX , IDX_STMT , GRANGE , GRULE , COMMENTS 

FROM ENTITY , CONTAINZ WHERE ENTITY. ENAME = CONTAINZ . E2NAME 
ORDER BY REL POS ; 



EXEC SQL OPEN Cl; 



EXEC SQL WHENEVER NOT FOUND GOTO finish; 
for( ; ;) ( 

EXEC SQL FETCH Cl INTO 
: ename , : etype , : dname , : idx , : idx_stmt , 

: grange, :grule, : comments; 

/* string is returned without so 
NULL we need to add it */ 

ename. arr [ ename. len] = NULL; 
etype. arr [etype. len] = NULL; 
dname. arr [dname. len] = NULL; 
idx. arr [idx. len] = NULL; 
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idx_stmt . arr [idx_stmt . len] = NULL; 
grange. arr [grange. len] = NULL; 
grule.arr[grule. len] = NULL; 
comments. arr [comments. len] = NULL; 

instal l_ent ity ( ename . arr , etype . arr , dname . arr , idx . arr , 
idx_stmt . arr , grange . arr, grule . arr , comments . arr) ; 



) 

finish : 

EXEC SQL CLOSE Cl; 

EXEC SQL WHENEVER SQLERROR CONTINUE; 

EXEC SQL COMMIT WORK RELEASE; 
return ; 
errpt : 

printf ( "\n% . 70s \n" , sqlca. sqlerrm. sqlerrmc) ; 

EXEC SQL ROLLBACK WORK RELEASE; 
return ; 

) 

/*********************************************************** 



REA D_RE LS H I P 

Function to read the global relship linked 
list from the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 

**************************************★*****************/ 
int read_relship ( ) 

{ 

/* login to oracle */ 



strcpy (uid.arr, "dsh" ) ; 
uid.len = strlen (uid.arr) ; 
strcpy (pwd. arr, "thesis") ; 
pwd.len = strlen (pwd . arr) ; 

EXEC SQL WHENEVER SQLERROR goto errpt; 
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EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

/* this could be ordered by rel_pos ?? */ 

EXEC SQL DECLARE C2 CURSOR FOR 

SELECT E1NAME , E1TYPE , E2NAME , E2TYPE 
FROM CALLS ORDER BY E2NAME , E1NAME ; 

EXEC SQL OPEN C2 ; 

EXEC SQL WHENEVER NOT FOUND GOTO finish; 
for ( ; ; ) { 

EXEC SQL FETCH C2 INTO : elname , : eltype , : e2name , : e2type ; 
/* string is returned without so NULL we need to add it 

*/ 



elname. arr [elname. len] = NULL; 
eltype. arr [eltype. len] = NULL; 
e2name. arr [e2name. len] = NULL; 
e2 type. arr [e2type. len] = NULL; 

install_relship ( "CALLS" , elname. arr, 

eltype. arr , e2name. arr, e2type.arr) ; 



} 

finish: 

EXEC SQL CLOSE C2 ; 

EXEC SQL WHENEVER SQLERROR CONTINUE; 

EXEC SQL COMMIT WORK RELEASE; 

return ; 

errpt : 

printf ( "\n% . 70s \n" , sqlca . sqlerrm. sqlerrmc) ; 
EXEC SQL ROLLBACK WORK RELEASE; 
return ; 



} 
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/*********************************************************** 

DELETE_FROM_RELSHIP 

Function to delete the ORACLE RDBMS relship table. 

Assumes predefined table and user: dsh password: thesis 

*********************************************************^ 
void delete_from_relship ( ) 

{ 

/* login to oracle */ 



strcpy (uid.arr, "dsh") ; 
uid.len = strlen(uid.arr) ; 
strcpy (pwd.arr, "thesis" ) ; 
pwd.len = strlen (pwd.arr) ; 

EXEC SQL WHENEVER SQLERROR goto errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

EXEC SQL DELETE FROM RELSHIP; 



finish: 

EXEC SQL WHENEVER SQLERROR CONTINUE; 

EXEC SQL COMMIT WORK RELEASE; 

return ; 

errpt: 

printf ( "\n% . 70s \n" , sqlca. sqlerrm. sqlerrmc) ; 
EXEC SQL ROLLBACK WORK RELEASE; 
return ; 



} 
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DE LETE_FROM_ENT I T Y 

Function to delete the ORACLE RDBMS entity table. 

Assumes predefined table and user: dsh password: thesis 

★★★a*****************************************************/ 
void delete_f rom_entity ( ) 

{ 

/* login to oracle */ 

strcpy (uid.arr, "dsh") ; 
uid.len = strlen (uid . arr) ; 
strcpy (pwd. arr, "thesis" ) ; 
pwd.len = strlen (pwd. arr) ; 

EXEC SQL WHENEVER SQLERROR goto errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

EXEC SQL DELETE FROM ENTITY? 



finish: 

EXEC SQL WHENEVER SQLERROR CONTINUE; 
EXEC SQL COMMIT WORK RELEASE? 



return ; 



errpt : 

printf ( "\n% . 70s \n" , sqlca. sqlerrm. sqlerrmc) ; 
EXEC SQL ROLLBACK WORK RELEASE; 
return ; 



) 
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/********************************************************* 
DATE: 10 Jan 89 - dsh 

FILE: oracle_w.pc 

CONTENTS: function to write to the ORACLE database. This 

isthe C version. This file roust be precompiled with the 
PR0*C precompiler before compliling with the other files. 
This precompilitation is automatically done by using MAKE. 

*********************************************************/ 

# include "symbol. h" 

# include <stdio.H> 



/* fuction prototypes */ 

int write_entity (void) ; 
int write_relship (void) ; 
int write_module (void) ; 

extern Entity * ehead; 

extern Relship * rhead; 

extern Module * mhead; 



EXEC SQL BEGIN DECLARE SECTION; 



VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 

VARCHAR 



uid[20] ; 
pwd [20] ; 
ename[20] ; 
etype [ 12 ] ; 
dname[20] ; 
idx[4 ] ; 
idx_stmt [50] ; 
grange [20] ; 
grule[80] ; 
comments [80] ; 



VARCHAR r type [12]; 

VARCHAR elname[20] ; 

VARCHAR e 1 type [12]; 

VARCHAR e2name[20]; 

VARCHAR e2type [ 12 ] ; 

int rel_pos; 



EXEC SQL END DECLARE SECTION; 
EXEC SQL INCLUDE SQLCA; 
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/*********************************************************** 



WRITE_ENTITY 

Function to load the global entity linked 
list into the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 

********************************************************/ 



int write_entity ( ) 

{ 

Entity * ep; /* temp pointer to linked list */ 

/* login to oracle */ 



strcpy (uid. arr, "dsh") ; 
uid.len = strlen (uid . arr) ; 
strcpy (pwd. arr, "thesis" ) ; 
pwd.len = strlen (pwd . arr) ; 

EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

ep = ehead; 

while (ep != NULL) { 



strcpy (ename. arr, ep->ename) ; 
ename.len = strlen (ename . arr) ; 

strcpy (etype . arr , ep->etype) ; 
etype.len = strlen (etype. arr) ; 

strcpy (dname . arr , ep->dname) ; 
dname.len = strlen (dname. arr) ; 

strcpy ( idx. arr , ep->idx) ; 
idx.len = strlen (idx. arr) ; 

strcpy ( idx_stmt . arr , ep->idx_stmt ) ; 
idx_stmt.len = strlen (idx_stmt. arr) ; 

strcpy (grange . arr , ep->grange) ; 
grange. len = strlen (grange . arr ) ; 
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strcpy (grule . arr , ep->grule) ; 
grule.len = strlen(grule.arr) ; 

strcpy ( comments . arr , ep->comments ) ; 
comments. len = strlen (comments . arr) ; 

EXEC SQL INSERT INTO ENTITY 
( ename , etype , dname , idx , idx_stmt , grange , grule , comments ) 
VALUES ( : ename , : etype , : dname , : idx , 

: idx_stmt , : grange , : grule , : comments ) ; 

EXEC SQL COMMIT WORK; 

ep = ep->next; 

} 

EXEC SQL COMMIT WORK RELEASE; 
return ; 
errpt : 

printf ( "\n% . 70s \n" , sqlca . sqlerrm. sqlerrmc) ; 

EXEC SQL ROLLBACK WORK RELEASE; 
return ; 



} 

/*********************************************************** 



WRITE_RELSHIP 

Function to load the global relship linked 
list into the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 



int write_relship ( ) 

{ 

Relship * rp; 

/* login to oracle */ 



strcpy (uid. arr , "dsh" ) ; 
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uid.len = strlen (uid. arr) ; 
strcpy (pwd.arr , "thesis") ; 
pwd.len = strlen (pwd. arr) ; 

EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
rp = rhead; 

while (rp != NULL) { 



strcpy (rtype . arr , rp->rtype) ; 
rtype.len = strlen (rtype. arr ) ; 

strcpy (elname. arr, rp->elname) ; 
elname. len = strlen (elname. arr) ; 

strcpy (eltype. arr , rp->eltype) ; 
eltype.len = strlen (eltype . arr) ; 

strcpy (e2name. arr, rp->e2name) ; 
e2name.len = strlen (e2name . arr) ; 

strcpy (e2type. arr, rp->e2type) ; 
e2type.len = strlen (e2type. arr) ; 



EXEC SQL INSERT INTO RELSHIP 
( rtype , elname , eltype , e2name , e2type) 

VALUES ( :rtype, : elname, : eltype, :e2name, :e2type) 

EXEC SQL COMMIT WORK; 

rp = rp->next; 

} 

EXEC SQL COMMIT WORK RELEASE; 
return ; 
errpt : 

printf ("\n%.70s \n" , sqlca . sqlerrm. sqlerrmc) ; 

EXEC SQL ROLLBACK WORK RELEASE; 
return ; 
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/*********************************************************** 



WRITE_MODULE 

Function to load the global module linked 
list into the relship ORACLE RDBMS table. Assumes 
predefined table and user: dsh password: thesis 

******* ********************************************* *****/ 



int write_module ( ) 

{ 

Module * mp; /* pointer to the module linked list */ 

/* login to oracle */ 



strcpy (uid. arr, "dsh" ) ; 
uid.len = strlen(uid.arr) ; 
strcpy (pwd.arr, "thesis” ) ; 
pwd.len = strlen (pwd.arr) ; 

EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd? 

mp = mhead; 

while (mp != NULL) { 

strcpy (rtype. arr ,mp->rtype) ; 
rtype.len = strlen (rtype . arr) ; 

strcpy (elname . arr ,mp->elname) ; 
elname.len = strlen (elname . arr) ; 

strcpy (eltype. arr, mp->eltype) ; 
eltype.len = strlen (eltype. arr) ; 

strcpy (e2name. arr, mp->e2name) ; 
e2name.len = strlen (e2name. arr) ; 

strcpy (e2type. arr, mp->e2type) ; 
e2type.len = strlen (e2type. arr) ; 

rel_pos - mp->rel_pos; 
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EXEC SQL INSERT INTO RELSHIP 
( rtype , elnaxne , eltype , e2name , e2 type , rel_pos ) 

VALUES (: rtype, :elname, : eltype, :e2name, :e2type, :rel_pos) ; 

EXEC SQL COMMIT WORK; 

mp = mp->next; 

} 

EXEC SQL COMMIT WORK RELEASE; 
return ; 
errpt : 

printf ( "\n% . 70s \n" , sqlca . sqlerrm. sqlerrxnc) ; 

EXEC SQL ROLLBACK WORK RELEASE; 
return ; 
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